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1 Intreduction 


This book has been written not only as a series of program 
listings for the Amstrad home computer, but also as an 
explanatory guide to many of the finer points of BASIC 
programming. 

It is generally recognised that the quickest and easiest 
way to learn to write programs is to type in and study other 
people’s programs. By doing this you become familiar with 
how to use the various BASIC keywords and you also learn 
some of the techniques other people have found useful in their 
programming. In this book we have gone into some detail on 
the more advanced techniques, such as using BIT LOGIC, 
and have also tried to cover many of the commands which 
are specific to the Amstrad or are new innovations in BASIC. 

The BASIC computer programming language has arguably 
been the single most important factor in bringing the com- 
puter into the home. BASIC is an acronym for Beginner’s 
All-purpose Symbolic Instruction Code, and was originally 
introduced as a means to program a computer that was so 
easy to use that it did away with the need to have a specialist 
computer programmer on staff. The idea was to have a pro- 
gramming language that was so simplified that anyone could 
quickly and easily learn to use it. 

However, by its very simplicity, BASIC does have its 
drawbacks, the main one being its speed. BASIC is slower 
than all other popular programming languages. 

Over the past few years, with the home computer 
revolution, BASIC has changed dramatically. Computer 
manufacturers have strived to improve their products as 
users have demanded more and more power from their 
machines. The BASIC as used on all the popular home 
computers nowadays is far more advanced than the original 
versions, borrowing ideas from other programming languages 
such as FORTRAN, PASCAL and ALGOL. 

Despite the typing in of listings being the simplest way to 
learn to program, the first-time user will still find difficulty. 
Everybody makes typing mistakes, especially in the early 


days when you don’t really have a clue what it is that you are 
typing. When you are reading a typewritten letter, if you see 
a word which is misspelled you will make an accurate guess 
as to what it should be, but a computer will not accept it and 
will tell you it has found an error. That is if you are lucky. 
Sometimes a typing mistake will be accepted by the computer 
but the end result will be nothing like what was expected. 
For this reason we have adopted some simple standards. 
In each listing all the keywords are printed in capital letters 
and all the variables in lower case. The exception to this 
is in REM statements, where the entire line is in capitals. 
The REM statements all have line numbers ending in 9. 
They have no bearing on the actual program, but serve as 
labels to help you see where you are. When you switch 
on your computer, you will be in Mode 1, which is 40 char- 
acters across the screen. All our listings have been printed 
in the same mode so that what appears on your screen 
will be identical to the listing. 


Errors 


Most error codes are fairly self-explanatory or can be easily 
understood from their description in your User Manual, ap- 
pendix VIII. However there are some errors which are not 
adequately explained or which may not prevent the program 
from running but which will affect the result. 


Line numbers 


The first part of a program where errors are likely to occur 
is in the line numbering. The common feature of all the dif- 
ferent versions of BASIC is that the programs require cons- 
ecutive line numbers. This tells the computer the order in 
which you want the operations to be performed and also 
gives you labels for GOTO and GOSUB operations which 
tell the computer to move to another part of the program. 

A very common error for both newcomers and experi- 
enced programmers alike is to enter two lines with the same 
line number. The effect of this is that the first line is deleted 
from the computer’s memory. To avoid this problem the 
Amstrad has an AUTOmatic line numbering system. By 


typing AUTO and pressing (ENTER) before you begin, the 
computer will automatically begin generating line numbers 
starting with 10 and incrementing by 10. All the listings in 

this book have been written in this way. If you wish to escape 
from the automatic numbering system, either because you 
want to retype an earlier line which you now realise has been 
typed incorrectly, or to enter a special line number (eg a REM 
statement with a line number ending in 9), then simply press 
the (ESC) key. To recommence AUTO line numbering, enter 
AUTO followed by the line at which you wish to recommence 
(eg AUTO 190). With this system, if on an AUTO line number 
you will be typing over an existing line, then the line number 
will be displayed with an asterisk (eg 190k). 


Reserved words 


Reserved words are often a source of errors in writing 
programs. The term ‘reserved words’ refers to the words 
which the BASIC interpreter recognises as keywords in the 
BASIC (eg PRINT, ABS, UNT). It is important that you do 
not attempt to use these words as variables. There is always 
a temptation to use the most logical name for a variable (eg 
‘ink’ for a variable to be used for changing colours), but you 
should always check that the name you wish to use is not a 
reserved word (as in that example). 


Syntax 


Syntax errors are probably the single most common type 

of error and often the hardest ones to see. Quite simply, a 
syntax error will occur when the BASIC interpreter inside 
your computer cannot make sense of the statement you have 
made. Here are some typical examples. 


1@ PRINT “hello 
Missing second ” to close the string. 

10 printa 
Missing space after the basic keyword. Not all keywords 
require the space to be put in, but it is easier to put a space 
after every keyword. When you type in programs in lower 


case, the BASIC interpreter will convert all keywords it 
comes across to upper case when they are LISTed. If, when 


you LIST a program, any keyword appears in lower case, you 
know it has not been recognised as a keyword. In the above 
example the interpreter has not recognised the PRINT 
statement, but has only seen the six characters ‘printa’. 


10 a=b/((256 — 16)*(34 — 6))/2 + (PI/360) — 4) 
There are not an equal number of left and right brackets 
(parentheses). If you count them there are only four left 
brackets and five right ones. 


10 DIM d 

20 SOUND 1 
Both these statements are examples of nonsense 
statements. They do not make sense to the BASIC 
interpreter. 


DATA statements 


Errors often arise when a long list of seemingly meaningless 
numbers or characters is being typed, as ina DATA state- 
ment. Typical errors are: 


Not enough items in your DATA statement 

If you are READing twelve items of data in your program 
and only have eleven items in your DATA statement, then 
you will geta DATA EXHAUSTED error message. 


Missing separator 
Ina DATA statement if you miss a comma, eg 


DATA 115, 119, 225 228 


then the computer will only READ three items, in this exam- 
ple 115, 119, and 225228. On this occasion the computer 
will probably give an OVERFLOW error message (meaning 
that the number is too large for the computer), but the error 
may go unnoticed by the BASIC interpreter if, for example, 
the two items in question were 2 and 34. 


Type mismatch 


The computer will find a TYPE MISMATCH error if you try 
to perform either string functions on numbers or arithmetic 
functions on strings, eg 


PRINT “hello”*6 
and PRINT LEFT$(455, 1) 


would both result ina TYPE MISMATCH error message. 
TYPE MISMATCH errors will also arise if you READ or 
INPUT information of the wrong type. For example if the 
line in the program says: 


100 INPUT a$ 


and you then input a number (eg 4) then the program will 
BREAK, giving this error code. Similarly, if the program is 
READing data into a numeric variable (a) and it attempts to 
READ astring value, then again the program will BREAK, 
eg 


100 FOR x=1 TO 4 

110 READ a 

120 NEXT x 

900 DATA 200, 100,35, hello 


This error commonly occurs when you have typed in the 
letter O instead of the number @ or vice versa. Making this 
particular mistake will result in either this error or a SYNTAX 
error message. 


Debugging 
When you have completed the typing in of a program you will 


now want to RUN it and see what you have achieved. At this 
point one of three things can happen: 


@ the program will run perfectly—very rare 


@ the program will run but not quite as expected—very 
common 


@ the program will start to run but will suddenly stop and tell 
you that there is an error of some sort-extremely common. 


The usual situation is the third mentioned. When an error 
message appears you will begin ‘debugging’ the program. 
Debugging is the term for correcting errors and is tradition- 
ally the labour-intensive part of programming. By following 
the tips given in the previous section on entering the listings, 


you should be able to minimise the amount of debugging 
required, but don’t be too disappointed if after entering your 
program it won’t run. When you can enter a program without 
having to then debug it you will be one ofa very elite few. 

Let’s assume that you have RUN your program and now 
find yourself with the program execution stopped and an error 
message displayed on the screen telling you both the error 
and the number of the line in which it has occurred. Often the 
computer will also display the actual line containing the error 
(eg some syntax errors). In this case, by looking at the line 
and comparing it to the listing you can usually see the error. 
If the line is not displayed then the first step is to LIST the 
line. It is usually more beneficial to LIST several of the lines 
on either side of it as well, eg 


Unexpected NEXT in 480 


The procedure at this point would be to LIST the section 
of program immediately before line 480, since presumably 
you must have left out the FOR statement in an earlier line. 


LIST 440- 


might give 440 a= 100 
450 b= 267 
470 PRINT axb 
480 NEXT x 


The first thing you would notice here is that line 460 ap- 
pears to be missing. You would then look for line 460 in the 
listing. In this case line 460 might have been: 


460 FOR x=1 TO a 


Of course there may not be a FOR statement in line 460, 
in which case you would look for the missing FOR statement 
earlier in the program. 

The third possibility is that line 480 is incorrect, which is 
easy to tell by looking at the program listing. However if this 
is the case then you not only have to type in the correct line 
480, but also have to find out where you came up with the line 
‘480 NEXT x’. This is quite a common error, and is caused 
by typing an incorrect line number later in the program. For. 
example line 480 may have been: 


480 d=a*b 


but line 580 may have been: 


580 NEXT x 


and when you were entering the program you typed line 580 
in as line 480 which then replaced the old line 480. 

Always be wary that the line where the computer finds an 
error is not always the line in which the error has occurred. 
The most obvious example of this is when the program stops 
because a function has an invalid argument, eg 


360 LOCATE #1,1,1 


will give an error if you have not defined a WINDOW#1 
earlier in the program. 

Similarly, if an error occurs ina line which uses a variable 
as an argument of some function, and there appears to be no 
problem with the line itself, then the error probably lies in the 
value of the variable, eg 


120 LOCATE x,y 


If you have a line like this and you get an error here and 
you have checked it and it is the same as in the listing, then 
type in: 

PRINT x 
and PRINT y 


This is using the Direct Mode (ie not using line numbers) 
and will give you the values for x and y at the point when the 
program stopped. It may be that by doing this you find that 
x has a negative value and that this is why the program 
stopped. Now you will have to find out how x has come 
to have a negative value. 

To do this you would compare all the lines in your program 
with those in the listing which contain statements which alter 
the value of x. This procedure is known as tracing the error 
and can sometimes be quite difficult. There are two BASIC 
techniques commonly used for this, the first one being to 
insert a STOP at various places within the program, eg 


120 x=x+(x<1)—(x>1) 
125 STOP 


When you now RUN the program, it will stop executing at 
this point. You would then in the Direct Command Mode 
PRINT x to see whether or not it is still a legal value at this 
point. Assuming it is, you recommence execution of the 
program with the CONTinue command. 

The other technique is to use the trace facility on the 
Amstrad. This is initiated with the command TRON and 
switched off again with TROFF. With the trace on, as the 
program runs, the line number of the line currently being 
executed is displayed on the screen. The advantage of 
using the trace facility is that you can see whether or not 
the program is performing all the required GOTO and 
GOSUB commands. 

A last point with debugging. It is often advisable to SAVE 
your program immediately after you have finished typing it in 
and before you commence debugging it. This is in case when 
you run it you cannot break out of your program. After having 
SAVE¢d it you would then RUN it and commence debugging. 
When you have completed the debugging you would then 
SAVE the finished program. 


Saving programs 
Your User Manual does cover most of the basics of using 
cassette storage of programs, but one point that cannot be 
emphasised too strongly is the need to wind the cassette on 
alittle to avoid trying to record over the blank leader at the 
start of the tape. On the Amstrad this problem is particularly 
notable because there is such a temptation to fully REWind 
a tape, type in SAVE and then press PLAY and RECord and 
thus SAVE your program because it will automatically start 
and stop the cassette. This will work only if you are using 
leaderless tapes. Most tapes have a short leader of clear or 
coloured plastic on either end of the actual recording tape, 
which will not record. If you are recording music onto a tape 
you don’t really worry if you miss the first few notes, but the 
computer requires every single item of data that it stores to 
be recorded. 

To avoid losing any information, all you need to do is wind 
the tape forward so that the brown part of the tape is showing 
before you SAVE your program. 


Using shorter tapes (10 or 15 minute tapes) is preferable 
to using longer ones (such as C-60 or C-90) because the lon- 
ger a tape is the more likely it is to stretch. If it stretches too 
much then the computer will be unable to read the informa- 
tion off it and you will have lost your program. Also, it is 
much easier to locate the program you want if you have five 
short tapes with four programs on each than if you have one 
long tape with twenty programs on it. 


2. Graphics routines 


One area of computer programming which gives a lot of 
pleasure for very little effort is Graphics. This section of 
the book gives you some sample listings of this type. 

Once you have entered a program and run it a few times 
we would recommend that you then play around with it a 
little, changing the values of the variables used. There are 
six listings demonstrating different aspects of the high-reso- 
lution graphics available on the Amstrad computer. 


Stringy 

The Stringy program is an example of Moire graphics. Moire 
patterns are patterns where intersecting lines create inter- 
esting effects. In this listing four separate lines are being 
drawn at the same time to different parts of the screen, giving 
the effect of a square closing in. We chose Mode 2 to give a 
better effect of the Moire pattern. You can easily alter the 


effect by changing the value by which you are stepping in 
line 30. 


9 REM stringy 

1@ MODE 2 

24 CLS 

29 FOR i=1 TQ 4@@ STEP 4 

4% PLOT @,i: DRAW 649-i,@ 

5a PLOT i,@:DRAW 644, i 

6@ PLOT 644-i1,498: DRAW 9,489-i 
7@ PLOT i1,4@B: DRAW 646,490-i 
88 NEXT i 


Circl 
One command that is lacking in the Amstrad’s BASIC is a 
CIRCLE command. To get around this, there are various 
ways of drawing circles. The most usual one is to use the: 
SIN and COS functions. 
In this program we draw lines of a randomly selected 

radius from a randomly selected point. You can make 

the circle appear fuller by changing line 80. The variables 


x and y determine the origins for each circle and the 
variable r determines the radius. 
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9 REM circle 

1@ MODE 1 

28 CLS 

38 BORDER @: INK 9,2 

42 FOR i=1 TO 26 

32 x=INT(RND(1)#64@) 

68 y=INT(RND(1)¥499) 

7@ r=INT(RND (1)#398) 

89 FOR d=1 TO 68 STEP 2 
92 PLOT x,y 

198 DRAWR SIN(d)#r,cOS(d)#¥r, 1 
118 NEXT d 

128 INK 1,i 

13@ NEXT i 


Twelve sides 


This program draws a twelve-sided figure but can easily 

be changed to draw a shape with any number of sides. 

The program makes use of two arrays to hold the values 

of the x and y positions at each corner. The values for each | 
of the positions are calculated using the formula in line 60 
which can be changed to alter the shape of the object drawn. 
The routine from line 90 to line 130 plots each of the points 
to the screen and draws lines interconnecting them. Using 
the DIM statements to put the values into arrays makes the 
program shorter and easier to understand. 


9 REM 12sides 

1@ MODE 1 

22 CLS 

38 DIM al(i2):DIM bi12) 

49 FOR n=1 TO 12 

SO k=n/6#PI 

68 a(n) =320+209#SIN( Kk) 5 b(n) =299+299*COS ( 
k) 

7@ PLOT a(n),b(n) 

88 NEXT n 

99 FOR ni TO 12 

199 FOR m1 TO 12 

119 PLOT a(n),b(n): DRAW a(m),b(m) 
128 NEXT m 

138 NEXT n 
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This is an example of using a plotting routine to produce 
three-dimensional effects. The program takes a while to 
plot all the positions, so be patient it is well worth the wait. 
There is a lot you can do by playing around with the formula 
in line 6@. You may like to try: 


60 PLOT 320+ xxSIN(n— 30),200 + ykCOS(n — 60) 
You may also like to change the stepping in line 50. 


9 REM star 

1@ MODE 1 

28 CLS 

38 x=8 

48 y=299 

5@ FOR n=@ TO 2¥PI STEP PI/189 
69 PLOT 328+x¥SIN(n) ,208+y#COS(n) 
798 NEXT n 

BO x=xtlGiy=y-18 
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9@ IF y=-1@ THEN STOP 
198 GOTO 3@ 


Eye 


The Eye program uses the DIM statement much like 
the Twelve Sides program to hold the values of the 
points plotted. 


| Horizontal centre of the screen 


j Vertical centre of the screen 

h ‘Colour and number of shapes 
drawn 

n Number of position within the 
array 

a(n) Horizontal position to be drawn 
from 

b(n) Vertical position to be drawn from 

m Number of position within the 
array to be drawn to 

a(m) Horizontal position to be drawn to 


b(m) Vertical position to be drawn to 


The variables | and j also make the shape an ellipse rather 
than a circle. 


9 REM eye 

19 MODE 1 

15 BORDER @: INK 9,9 
28 CLS 

38 DIM a(36):DIM b(36) 
98 1=328: j=209 

59 FOR h=1 TO 5 

69 FOR n=1 TO 36 

7B k=n/18S*PT 

828 aln)=328 t+1l¥SIN(K) 
92 bin)=298 +j¥COS(k) 
199 PLOT a(n),b(n) 

118 NEXT n 

128 FOR n=1i TO 36 

138 m=nt+12 

149 IF m>36 THEN m=m-36 
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159 PLOT a(n),b(n): DRAW a(m),b(m),h 
169 NEXT n 

178 1=1/2:j=j/2 

189 NEXT h 


Wave is the longest of these graphics listings but by far the 
most satisfying and enjoyable to watch. This program makes 
extensive use of the DEF FuNction command. If you wish 
to use the same formula many times in a program it is often 
much easier to define a function containing the formula. 


For example in this program we have defined the formula 
INT(RND(1)>«x) 


and called it the function r(x), where x is the variable within 
the formula which can contain any number. 
The function r can be applied to any variable, for example 


FNr(y) would give the result 
INT(RND(1)y) 


The function is defined by using the basic keyword 
‘DEF FN’ and then is called up using the basic keyword ‘FN’. 
When you define the function you must give it a name. 
Then if within a program you are making use of several 
functions, you can call up the one you require. Although 
we called the function r, we could for example have called 
it ‘random’. Make sure, however, that you don’t try to 
call a function by a keyword, eg 


DEF FN RND(&)=x+x 
DEF FN PRINT (a3,j,1) = MID$(a$,j,) 


These will not work! 
Variables 
x,y Determine the origin 
l,m Line drawn 
u Determines spacing between lines 
v Keeps spacing fairly even 
q Colours 
g Number of lines drawn 
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a,b New origin 


c,d New line drawn 
vw Scroll the screen up 
Program 


Lines 150 to 180 check that you are not drawing off the 
screen and if you are they send the line in the opposite 
direction. 

Line 3@ ensures that the random numbers generated are 
truly random by making use of the internal clock. 


Don’t miss this one. Type it in, runit, sit back and enjoy! 


> REM wave 
19 INK 6,4 


28 BORDER @ 

398 RANDOMIZE TIME 

4@ CLS 

5@ x=INT(RND (16) ¥649) 

68 y=INT(RND (19) ¥499) 

7@ 1=INT(RND( 18) *649) 

88 m=INT(RND (18) #499) 

9S u=14iv=?7 

19@@ DEF FNr(x)=INT(RND(1)¥x) 

118 GOSUB 299 

12@ FOR q=1 TO 26 

138 FOR g=1 TO 309 

149 INK 1,q:PEN 1:PLOT x,y:DRAW 1,m 
158 IF xta>649 OR xtact@ THEN at-a 
168 IF y+b>49@ OR ytb<@ THEN b=-b 
178 IF 1+c>64@ OR 1l+c<@ THEN c=-c 
186 IF mt+td>4@@ OR mtc<@ THEN d=-d 
198 x=xtaiy=ytb 

268 1=1l+cim=m+d 

218 NEXT g 

228 LOCATE 1,25 

239 FOR vv=1 TO 39 

248 PRINT 

258 NEXT 

268 CLS 

278 NEXT gq 

28a RUN 

298 a=FNr (u)d-v 
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3998 b=FNr (u)-v 
319 c=FNr(u)-v 
328 d=FNr(u)-v 
3398 RETURN 
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3 Touch typing tutor 


This program is a tutoring program to improve your speed 
and accuracy in typing. There are four levels of difficulty 
covering the most commonly used keys. The computer 
will randomly generate a string of letters which you will 
then copy. If at any time while typing the line you have 
made an error, you may recommence typing the line by 
pressing the (ENTER) key. The (DELETE) key will not 
work. 


Level one — the Home keys (ASDFG HJKL:) 


Place your left hand so that your little finger is on the A key, 
your ring finger is on the S key, your middle finger is on the 
D key and your left pointer is on the F key. 

Place your right hand so that your little finger is on the key, 
your ring finger is on the L key, your middle finger is 
on the K key and your pointer is on the J key. 

This is called the ‘Home’ position, and you should always 
go back to this position after you type in a letter. 

The G key is pressed by moving your left pointer finger 
one space to the right, and the H key is pressed by moving 
your right pointer one space to the left. 


Level two—the Home keys and the upper row 
(QWERT YUIOP) 


The Q, W, E and R keys are all pressed with the correspon- 
ding left hand fingers. To do this from the Home position each 
finger moves up and to the left. 

The P, O, I and U keys are all pressed with the correspon- 
ding right hand fingers. To do this from the Home position 
each finger moves up and to the left. 

Again the T and Y keys are reached by stretching your 
left and right pointers that little bit further. 


Level three — the Home keys, the upper row and the 
bottom row (ZXCVB NM,,./) 


The Z, X, C and V keys are all reached with the fingers 
of the left hand by shifting them down and to the right. 
The/., and M keys are all reached with the fingers 
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of the right hand by shifting them down and to the right. 
The B and N keys are reached by stretching the pointers 
of your left and right hands. 


Level four — all the previous levels plus their capitals 


To print the capital of a letter typed by the left hand, depress 
the (SHIFT) key on the right side of the keyboard with the 
little finger of the right hand. For letters typed by the right 
hand, depress the left (SHIFT) key with the little finger of 
the left hand. 

The space bar is pressed with the thumb of either hand. 


Variables 

a$(4) An array holding the characters for the four levels 
of difficulty 

s$(25) A string holding the twenty-five characters used 
for practising 

m A character randomly selected from a$ to be put 
into s$ 

er The number of errors made 

tm Start time 

tt Time taken 

Program 


Lines 10-100 define ink colours, set up strings for a$ and 
define windows for screen display. 


Lines 200-240 set up menu. 
Lines 300-360 generate and display the string to be copied. 


Lines 400-460 wait for first key input, reset errors and then 
start timer. 


Lines 470-540 scan keyboard for input, check for errors and 
display keys pressed. Line 500 checks the (ENTER) key has 
been pressed; if it has you start typing the line again. 


Line 600-690 calculate and print time taken and number of 
errors made. If there are any errors then you must type in 
the line again, otherwise you are returned to the menu. 
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Tips 


Initially concentrate more on hitting the right keys with 
the right fingers than on worrying about time. 

Try to look at the screen rather than at your fingers. 
A good way of making sure of this is to put a sheet of 
paper over your hands. 


D 


A 
run. 


oR 
12 

22 

3d 

49 

5a 

6a 

7B 

8g 

9D 

1998 
2,2 
199 
288 
219 
222 
2390 
249 
"Sa 
299 
SID 
318 
3298 
338 
349 
3308 
3460 
399 
499 
419 
429 
439 


on’t miss any spaces. 
little bit of hard work will definitely pay off in the long 


EM INITIALISE 

cLS 

INK 2,8: INK 3,26 

DIM a%(4) 

DIM s%(25) 

a@(1)="asdf ghjkl:" 
a$(2)="qwert yuiop"ta%(1) 
a%(3)="zxcv bnm,./"+ae(2) 
aS (4) =ae (3) t+UPPERS (a%(3)) 
WINDOW #1,1,49,1,8 


WINDOW #2,1,48,9,16:PAPER #2,3:PEN # 
REM MENU 
LOCATE 12,5:PRINT "1. asdfg hjki:" 


LOCATE 12,7:PRINT "2. qwert yuiop” 
LOCATE 12,9:PRINT "3. zxcvb nm,./" 
LOCATE 12,11°PRINT "4. UPPER CASE" 
LOCATE 11,14:° INPUT "Input selection 


REM PRINT CHARACTERS 

cLsS 

LOCATE #1,7,5:PRINT #1, °!"3 

FOR c=1 TO 25 

rn=INT(RND(1) #(LEN(a®(a))-1)) +41 
5% (c)=MIDS(a#(a),rn,i) 

PRINT #1,8®(c)§ 

NEXT c 

REM MAIN PROGRAM 

CLS #2:LOCATE #2,7,5:PRINT #2,"i"3 
c=l 

k®=INKEY#: IF k#="" THEN 429 
SOUND 1,19,2,15,9,9,2 
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4949 er=0 

459 tm=TIME 

469 GOTO 3519 

478 FOR c=2 TO 25 

489 k®=INKEYS: IF k$="" THEN 489 

499 SOUND 1,19,2,15,9,9,2 

5@@ IF k#$=CHRS(1i3) THEN 499 

Si9 IF k#<>s®(c) THEN er=ertl 

S29 PRINT #2, k%;5 

539 IF c=1 THEN GOTO 479 

548 NEXT c 

599 REM END OF PROGRAM 

699 tt=(TIME-tm) /399 

G19 tt=INT(tt#199) /199 

629 LOCATE 1,23:PRINT “time taken "jtt;" 
errors made “jer 

639 FOR s=2998 TO 190 STEP -1:SOUND 1,5,8 

»-5,15:NEXT s:SOUND 1,5,59,15 

6428 PRINT: PEN 3:PRINT TAB (14); "press a 

key":PEN 1 

659 kB=INKEYS 

662 IF k#="" THEN 659 

679 LOCATE 14,235:PRINT SPACES(12) 

689 IF er>@ THEN 499 

699 CLS:GOTO 299 


4 Skirun 


In this program you have to control a skier down a mountain 
slope following the course set by the flags. You control your 
skier using the left and right arrow keys. The computer will 
ask you for the level of difficulty you wish to play. The number 
you input determines the initial distance between the flags, so 
the higher the number you input, the easier the level of play. 
We suggest you first try inputting 13 and as you become more 
confident, try playing with lower values. If you are a real 
thrill-seeker then see if you can complete the course with 
a level of difficulty of 7. 

If you run into ten flags then you will be disqualified by the 
judges (ie the computer). Beware of rocks along the course. 


Variables 
a Used to determine distance between flags 
a$ Graphic for flag 
c$ Graphic for skier 
diff Used to increase difficulty along course 
Xx Initial position for skier 
Used to locate the flags 
dist Distance of course 
f Position for flag 
m$ Used to check key pressed 
spd Pause 
cr Number of flags hit 
Program 


Line 10 prevents key repeat if a key is held down. 

Line 9@ generates a rock after a random interval of time. 
Line 10@ makes a continuous sound while skiing. 

Lines 230-250 generate a number to move flags left or right. 


Lines 330-340 test whether you have hit a flag or a rock. 
To do this we had to use TEST, so the screen positions 
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referenced are in High Resolution Mode. 
Lines 360-380 make the course progressively narrower. 


Lines 390-410 scan the keyboard and move the skier left or 
right. 


Line 51 turns off the AFTER and EVERY commands used. 


Line 600 increments the number of flags hit and checks 
whether you have hit ten. 


Line 700 generates a rock at a random position. 
Line 710 resets the random interval before another rock. 


Explanation 
This program introduces two BASIC procedures which are 
specific to the Amstrad. 

The first one is the use of the internal clock by using the 
BASIC commands AFTER and EVERY. The Amstrad has 
an inbuilt real-time clock which is running all the time the 
computer is switched on. The AFTER and EVERY com- 
mands make it possible for you to send control of a program 
to a specified subroutine AFTER a given time has elapsed 
or EVERY so often. After the specified subroutine has been 
performed, control returns to the program where it left off. 
This feature is referred to as ‘multi-tasking’ because the com- 
puter appears to be performing more than one task at once. 
Your User Manual contains further information in the chapter 
on Interrupt Features (ch 10, p 1). 

The second feature of Amstrad BASIC demonstrated in 
this program is using the command TEST to check a position 
on the screen. The screen display of the Amstrad is actually 
composed of two screen displays superimposed on each 
other. These are the Text Screen and the Graphics Screen. 
There are three different Text Screens which can be selected 
on the Amstrad using the MODE command. 


MODE @ specifies a Text screen of 20 characters across by 
25 lines down 
MODE 1 specifies a Text screen of 40 characters across by 
25 lines down 
MODE 2 specifies a Text screen of 80 characters across by 
25 lines down 
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Irrespective of which mode the Text Screen is in, super- 
imposed over it will always be the Graphics Screen which 
should be regarded as 640 pixels across the screen by 
200 pixels down the screen. The term pixel refers to 
the smallest point addressable on the screen. 

The resolution of the Graphics Screen is given as the num- 
ber of pixels addressable across the screen by the number 
of pixels down the screen, so the resolution of the Graphics 
Screen is expressed as 640 by 200. However, this resolution 
is only achieved when the Text Screen is in MODE 2 (ie 80 
character mode). When the Text Screen is in MODE 1 the 
resolution is only half this, 320 by 200, and in MODE @, the 
resolution is only 160 by 200. The awkward part of this is that 
in the lower resolution modes the addressing of individual 
pixels in the Graphics Screen is still done as though you were 
in the 640 by 200 resolution mode. This means that if for 
example you are in MODE 0 (20 characters across the Text 
Screen), the resolution of the Graphics Screen would be 160 
by 200, but each pixel across the screen would not be 
numbered 0 to 159, but @ to 636 in steps of 4, ie 


MODE 9 0,4,8,12,16... 628,632,636 (160 NUMBERS) 
MODE 1 0,2,4,6,8... 634,636,638 (8320 NUMBERS) 
MODE 2 0,1,2,3, ... 637,638,639 (640 NUMBERS) 


This is why we said earlier that it is better to think of 
the Graphics Screen as always being 640 by 200, since 
you must always refer to screen positions in the Graphics 
Screen relative to this resolution, irrespective of the 
Text Screen. 

A major difference between the Text and Graphics 
Screens is the direction in which they are referenced. 
The Text Screen is always referenced relative to the 
point 1, 1 located in the top left corner of the screen, 
whereas the Graphics Screen is referenced to the 
graphic position @, @ situated in the bottom left corner 
of the screen. 


The command TEST is used to determine the value of the 
ink colour at a specified pixel position in the Graphics Screen. 
This command has been used in this program to check whe- 
ther the skiing character has collided with a rock or a flag. In 
this program the flags, the rocks and the skiing character are 
all being displayed in the Text Screen, but since the Text and 


23 


Graphics Screens are being displayed simultaneously on the 
screen, what is being displayed in the Text Screen can also 
be addressed as being within the Graphics Screen. This 
means that we can check the ink colour at any position in the 
Graphics Screen, even though it may have been displayed 
to the screen as a part of the Text Screen (ie by a PRINT 
statement). 


9 R 
16 
28 
3B 
4G 
49 
5d 
ER 
62 
7D 
3g 
9D 
182 
119 
128 
139 
1949 
199 
288 
219 
229 
239 
23 
249 
259 
268 
272 
289 
RIN 
298 
388 
318 


EM skirun 

SPEED KEY 255,255 

SYMBOL AFTER 229 

SYMBOL 248,56,56, 146, 254, 146,179,178, 


SYMBOL 229, 48, 6%, 62, 68,48, 32,32, 32 
INK 1,6:INK 2,26:INK 3,9:PAPER 2: BORD 


INPUT “level of play “ja 
AFTER INT(RND(3998)+299),2 GOSUB 799 
GOSUB 669:EVERY 692,28 GOSUB 662 
aS=CHR® (229) 

c$=CHRS (248) 

difft=9 

x=28 

REM GAME 

j=2@-INT(a/2) 

FOR dist=1 TO 399 

LOCATE 1,1:PRINT 308-dist 
#=INT(RND(1)¥49-a) :IF #<=1 THEN GOTO 
@ 

IF #>15 THEN j=jti 

IF #<15 THEN j=j-1 

IF j>4@-a THEN j=j-1 

IF j<1 THEN j=jtl 

LOCATE j,25:PRINT a®:LOCATE jta,25:P 
T a®& 

PRINT 

diftf=ditftl 

LOCATE X-1,7:PRINT " . 

LOCATE x-1,8:PRINT " = 

IF TEST (x¥16-8,249)=1 THEN GOTO 699 
IF TEST (x¥16-8,249)=3 THEN GOTO 899 


35@ LOCATE x,9:PEN 3:PRINT c%#:PEN 1 

369 IF diff=19@ THEN d=2:a=a-1 

370 IF diff=175 THEN d=1:a=a-1 

389 IF diff=259 THEN d=@: a=a-1 

398 mB=INKEYS 

498 IF m$=CHR#(242) THEN x=x-1 

419 IF m$=CHR#(243) THEN x=xtl 

429 FOR SPD =1 TO a:NEXT SPD 

430 NEXT dist 

4499 FOR en=1 TO 1@ :FOR pau=1 TO 5@g:NEXx 
T pau:LOCATE j,25:PRINT "FINISH": PRINT:IN 
EXT en 

499 REM END OF GAME 

5@@ CLS:PRINT "your score was "“j;diff/a-c 
rk2 

Si@ LET DD=REMAIN(@):FOR SND=15@ TO 199 
STEP -1:SOUND 129,SND,59,15:FOR P=1 TO 5 
@:NEXT P:NEXT SND 

529 SOUND 1,SND,199,15 

538 BORDER 26 

549 INPUT “would you like to play again 
P"jas 

S50 IF LEFT#(AS,1)="Y" OR LEFTS(AS, 1) ="y 
" THEN RUN 

569 END 

S99 REM FLAG HIT ROUTINE 

698 LET cr=crt+l tIF cr=19 THEN GOTO 998 
618 BORDER 8,12:AFTER 50,1 GOSUB 649 
628 SOUND 2,1999,39,15 

638 GOTO 358 

649 BORDER 26: RETURN 

659 REM SKI SOUND 

669 SOUND 129,8,6999,19,9,9,15 

678 RETURN 

699 REM ROCK GENERATOR 

798 LOCATE jta/(RND(3)+1),25:PEN 3 i: PRIN 
T CHR®(244):PEN 1 

7i@ AFTER INT(RND(399)+299),2 GOSUB 799 
7298 RETURN 

799 REM ROCK HIT 

8@9 BORDER 15,8: INK 4,15,8:PAPER 4 

818 CLS:LOCATE 8,16:PRINT “YOU HAVE HIT 
A ROCK ..." 

828 LET DD=REMAIN(®) 
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830 FOR SND=1 TO 1598 STEP 2:SOUND 129,SN 
D,5@,15:NEXT SND 

846 SOUND 129,%,290,15,9,8,4 

B2@ GATTO 914 

899 REM DISQUALIFICATION 

999 LOCATE 1,25:PRINT “YOU HAVE BEEN DIS 
QUALIFIED FOR HITTING TEN FLAGS. THE JU 
DGES SUGGEST YOU TRY 4NEASIER LEVEL." 
919 PRINT:PRINT " press return to c 
ontinue” 

929 BORDER 15,8 

93H LET DD=REMAIN(@) 

949 FOR g=l TO 40@:NEXT g 

954 INPUT a 

96E RUN 
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5S Emergency landing 


The USS Amsterprise is running low on fuel reserves and 
must make an immediate stop on a nearby planet to refuel. 
You are the captain and it is up to you to land your ship, using 
what little fuel is available to you. The ship computer will help 
you by displaying your altitude, your downward velocity and 
the amount of fuel remaining. The computer will then ask 
you how much thrust you require from your retro-rockets. 
It will only allow you to input values for thrust in the range 
of 0-50 000 to prevent the rockets from overheating. 
Through your port-hole you can see the rapidly approaching 
landing base. 

There are five levels of difficulty and if you can land your 
ship at Level Five then you should put in an application to 
NASA! 


Variables 

diff Level of difficulty. Used to determine 
the gravitational effect and fuel available 

vel Velocity 

alt Altitude 

fuel Fuel 

used Amount of fuel used for each thrust 

d Diameter of port-hole display 

r Radius of port-hole display 

thr Thrust 

n Counter of degrees for port-hole display 

Program 


Line 20 sets all angle references to degrees. 

Lines 40-90 define windows for sections of screen display. 
Line 170 sets all variables to initial values. 

Line 230 checks if fuel has run out. 

Line 24@ checks if you have successfully landed. 


Zt 


Line 250 checks if you have crashed. 
Line 290 calculates amount of fuel used. 
Line 310 updates velocity. 

Lines 400-470 draw port-hole display. 


The display of the landing base is done by plotting points 
in concentric circles. These circles are only drawn if the 
altitude has dropped by 100 metres or more. Line 400 
checks that the altitude has changed by 100 from when the 
display was previously drawn. Line 410 updates the value 
for d. Line 420 updates the value for the radius (r) so that 
as you approach the ground the landing base gets bigger. 


Explanation 

This program makes extensive use of the windowing function 
on the Amstrad to make displaying the information easier and 
the program easier to follow. The WINDOW command ena- 
bles you to address a particular part of the screen to print to. 
This can be a lot easier than using the LOCATE command if 
you are always updating the same part of the screen. You can 
have up to eight windows, each one labelled with a number 
ranging from @ to 7. When you first switch on your computer 
it defaults to Window 0, which would be equivalent to the 
command: 


WINDOW #6, 1,40,1,25 


which is the entire screen. In the command, 0 after # is 
the window number, ie the label, followed by the leftmost 
position, the rightmost position, the highest position and 
the lowest position on the screen. 


For example, if you put in the command: 
WINDOW #5, 20,20, 12,12 


then you would have defined a window of only one character 
space in the centre of the screen. 


In this program we have defined: 


WINDOW #1 as your altitude display 
WINDOW #2 as your velocity display 
WINDOW #3 as your fuel display 


WINDOW #4 as your port-hole 
WINDOW #5 computer input line 


altitude 


9 REM EMERGENCY LANDING 

18 MGDE @ 

26 PES 

3@ INK @,@:INK 1,26!INK 2,24:INK 2,23:IN 
K 4,6,8:INK 5,22 

4@ WINDOW #@,1,20,1,25:FAPER #2,0:PEN #2 
,1:CLS #9 

5@ WINDOW #1,3,7,5,6:PAPER #1,2:PEN #1,2 
CLS #1 

6@ WINDOW #2,3,7,12,13:PAPER #2,2:FEN #2 
,G:CLS #2 
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78 WINDOW #3,3,7,19,20:PAPER #3,2:PEN #3 

,;9:CLS #3 

88 WINDOW #4,11,19,2,2@6:PAPER #4,3:PEN # 

4,4: CLS #4 

98 WINDOW #5,1,298,23, 25: PAPER #5,2:PEN # 

3,9:CLS #5 

198 LOCATE #@,2,3:PRINT "altitude" 

119 LOCATE #9,3,198: PRINT "speed" 

129 LOCATE #@,3,17:PRINT “fuel” 

139 CLS #5: INPUT #5,"level of difficulty 
(1-3) "“sdiffiCLs #5 

169 IF diff<1 OR diff#>5S THEN 152 

178 vel=19G: alt=198G: fuel=49G+1I9Hkditfeou 

sed=9: d=9ir=0 

199 REM GAME 

209 LOCATE #1,1,1: PRINT #1, INT(alt) 

219 LOCATE #1,1,1:PRINT #1, INT(alt) 

228 LOCATE #2,1,1:PRINT #2, INT(vel) 

238 LOCATE #3,1,1: PRINT #3, INT (fuel) 

249 IF fuel<=8 THEN GOTO 529 

238 IF INT(alt)<=@8 AND vel<3 THEN 549 

2698 IF alt<=8 THEN 399 

272 GOSUB 499 

288 LOCATE #5,2,2: INPUT #5, "input thrust 

"sthr:CLsS #5 

299 IF thr<@ OR thr >589982 THEN 289 

3088 used=thr /SIIIAK4S 

319 fuel=fuel-used 

328 vel=vel+t(vel¥(2998+fuel) /SOBBI+ (diff 

¥2))-(thr/ (28099+fuel)) 

338 altzalt-vel 

349 GOTO 299 

399 REM LANDING BASE 

499 IF INT(alt/199)=d THEN RETURN 

418 d=INT(alt/19@) 

929 r=(19-d) #13 

439 ORIGIN 464,248 

442 FOR n=9 TO 368 STEP i9 

459 PLOT r¥SIN(n),rk¥COS(n) ,o 

460 NEXT n 

472 RETURN 

499 REM MESSAGES 

598 CLS #4:LOCATE #4,4,11:° PRINT #4, "YOU" 

LOCATE #4,2, 13: PRINT #4, “CRASHED” 
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Sig GOTQ 35¢ 

S26 CLS #4:LOCATE #4,4,1@:FRINT #4, "yoQu” 
:LOCATE #4,2,12:PRINT #4, "CRASHED": LOCAT 

E #4,1,15°:PRINT #4, "your fuel":LOCATE #4 
s2,17°3PRINT #4,"ran out” 

5S3@ GOTO 55¢ 

S4@ LOCATE #4,1,19: PRINT #4, "WELL DONE" 

S5@ CLS #5;LOCATE #5,4,2:PRINT #5, "press 
any key" 

S68 IF INKEYS="" THEN 56a 

S79 CLS #4:GOTO 159 
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6 Draw straws 


Pit your wits against the computer. This is a computerised 
version of the game in which you have to draw straws with 
the aim of leaving another player with the last remaining 
straw. The catch with this one is that you are playing against 
the computer. 

The computer will generate a random number of straws 
and then randomly decide who will go first. You and the 
computer will then take it in turns to draw straws. You can 
take either one, two or three straws at a time with the aim 
of leaving the computer with the last straw. 


Variables 

n Number of straws 

tk Number of straws taken 
you Your score 

me Computer score 
Program 


Lines 10-50 define windows and ink colours. (Note that 
we have used the default ink values for ink @, 1, 2 and 3.) 


Line 60 generates a random number of straws. 
Lines 80-100 generate graphics for straws. 

Line 150 decides who goes first. 

Lines 300-360 determine the computer’s choice. 
Lines 700-740 display number of straws remaining. 


The graphics for the straws are generated in line 60. These 
graphics are stored in the string s$. Lines 710-7390 print the 
string s$ from the first straw to the last remaining one (ie the 
nth one). The straw is printed three times on different lines 
to make it larger. 


Explanation 


This is an example of ‘artificial intelligence’. Since a computer 
cannot actually think, a program in which a computer has to 
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make a decision, as in this one, is referred to as an Artificial 
Intelligence program. The decisions are based entirely upon 
decision lines within the program (lines 300 to 360). In this 
case the decisions are made using IF... THEN... statements. 
This technique becomes very unwieldy when the computer 
has to make a lot of decisions or decisions based on several 
different precepts. 

To make this program more efficient in its decision making, 
you can make the following alterations: 


Delete lines 300, 340, 350, 360, then type these lines in: 


300 IF (n+3)/4=INT((n+3)/4) THEN tk = INT(RND(3)) +1 
310 IF (n+2)/4=INT((n+2)/4) THEN tk=1 

320 IF (n+ 1)/4=INT((n+1)/4) THEN tk=2 

330 IF n/4=INT(n/4) THEN tk=3 


This technique is far more efficient and will work out the 
exact number of straws to take for virtually any number of 
straws. However, the decision to be made in this program 
is based upon only one precept — the number of straws 
remaining. More complicated artificial intelligence programs 
usually have to base their decisions upon several precepts, as 
in chess where the computer must base its decision on such 
information as whether it can take a piece with any of its men, 
whether a move will lose it a man and if it will, whether it 
would be worth it in the long run. In fact, the syntax checker 
inside your computer is an example of artificial intelligence 
where the decision is whether or not to accept a command. 

Decision making on a larger scale is usually done using 
computer logic. On the Amstrad you can use the logical 
expressions (AND, OR, XOR, NOT). In addition to these 
logical expressions you can also make use of the comparative 
algebraic expressions (=, <, >, <>, <=, >=). Allthese 
expressions apply not only to numbers but also to strings 
of characters. 


AND... IF x=1 AND b=2 THEN...do something 


The computer will only execute the command after the 
THEN statement if x = 1 and b= 2 (ie if both conditions are 
true). 


OR... IF x=1 OR b=2 THEN...do something 


The computer will execute the command after the THEN 
statement if either x = 1 or b = 2 (ie if either condition is true). 


XOR... IF x=1 XOR b=2 THEN...do something 


The computer will only execute the command after the 
THEN statement if one condition is true and one condition 
is false. 


NOT... IF NOT x=1 THEN...do something 


The computer will only execute the command after the 
THEN statement if x<>1 (ie the condition is false). 


On the Amstrad, when it determines whether a condition 
is true or false, it gives it a value: for false and — 1 for true. 
This is referred to as inverse logic, since on most computers 
a true statement returns a value for the truth test of 1. 

The IF... THEN. .. statement can therefore be looked at 

as IF (— 1) THEN..., where the operation after the THEN 
statement is only performed if the truth test (after the IF . 
statement) returns a value of — 1 (ie it is true). The logical 
expressions (AND, OR, XOR, NOT) alter the value of the 
truth test. Although we found that the Amstrad definitely 
uses inverse logic, the section in the User Manual on logical 
expressions (ch 4, p 18) describes it as normal logic (ie a true 
statement returns a 1). 


You can always make use of truth testing in your own 
programming; in fact we have made extensive use of it 
in programs later in the book. 


x=x+(x=1) 
amounts to the same as: 
IF x=1 THEN LET x=x-1 
taking this one step further, 
x=x+(x=1)—(x>2) —(x<@) 


amounts to saying all three of the following lines: 


IF x=1 THEN LET x=x-1 
IF x>2 THEN LET x=x+1 
IF x<@ THEN LET x=x+l 


The use of inverse logic on the Amstrad appears to be 
an oversight in the programming of the BASIC ROM, since 
all other computers use the standard form of a truth test 
returning a value of + 1 for true statements. So bear in 
mind that all the truth tests used in programs in this book 
are opposite to truth tests used on other computers. 


9 REM DRAW STRAWS 

18 CLS!INK 4,15 

28 WINDOW #1,1,49,3,5:PEN #1,2 

38 WINDOW #2,19,39,7,7 

48 WINDOW #3,1,49,19,24 

S@ WINDOW #4,17,24,25,25:PEN #4,3 

68 n=INT(RND(1)#¥15)+5 

78 se="" 

8@ FOR a=1 TO 29 

99 sB=sSH+CHRS(149)+" * 

19@ NEXT a 

11@ GOSUB 799 

15@ IF RND(1)<@.5 THEN GOSUB 6998:GOTO 28 

@ 

16@ LOCATE #2,1,1:PRINT #2,"You can go f 
irst" 

199 REM YOUR CHOICE 

298 LOCATE #3,5,1: PRINT #3, "There are "j; 
n5" straws remaining” 

219 LOCATE #3,8,5: INPUT #3,"“how many do 
you take";tk 

228 CLS #2 

238 CLS #3 

248 IF tk <1 OR tk >3 THEN 2198 

23528 n=n-tk 

262 GOSUB 788 

278 IF n=1 THEN 399 

288 LOCATE #3,5,1:PRINT #3,"There are " 
3n3"" straws remaining" 

299 REM COMPUTER’S CHOICE 

3828 tk=3 

31@ IF n=2 THEN tk=1 

328 IF n=3 THEN tk=2 

338 IF n=4 THEN tk=3 

348 IF n=5 THEN tk=1 

338 IF n=6 THEN tk=1 


35 


368 IF n*7 THEN tk=2 

372 FOR a=i TO 1999: NEXT 

389 CLS #3 

398 CLS #2 

492 LOCATE #3,14,5:PRINT #3,"I will take 
"3tk 

418 n=n-tk 

422 GOSUB 7299 

439 IF n=1 THEN 339 

449 FOR a= 1 TO 1399:NEXT 

432 GOTO 289 

499 REM SCORE UPDATE 


382 
319 
329 
S32 
SAS 
558 
369 
372 
S99 
629 


LOCATE #4,1,1: PRINT #4,"YOU WIN" 
yousyoutli:GOSUB 899g 

GOTO 339 

LOCATE #4,2,1: PRINT #4,"I WIN" 
me=met+i:GOSUB S22 

FOR a=1 TO 3999: NEXT 

CLS #4 

GOTO 69 

REM MESSAGE 

LOCATE #2,1,1:PRINT #2,“I will go fi 


rst": RETURN 


699 
792 
718 


722 
738 
748 
799 
899 
ATE 
819 


REM DISPLAY STRAWS 
CLS #1 
LOCATE #1,1,1°PRINT #1,LEFTS(s%, nk¥2) 


LOCATE #1,1,2:PRINT #1,LEFT#(s%,n#2) 
LOCATE #1,1,3: PRINT #1,LEFTS(s%,n¥2) 
RETURN 

REM DISPLAY SCORES 

LOCATE 1,1:PRINT “My score "“sme:LOC 
28,1:PRINT "Your score "“j;you 

RETURN 


7 Maze plays 


Lost in a crossword puzzle. How quickly can you escape, 
and how many bonus chalices can you collect on your way? 
There are five levels of difficulty in this game and once you 
have escaped you have the option not only of playing a new 
maze or the same one again but also of having the computer 
show an instant replay of all the moves you made. Controls 
for this game are on the numeric key-pad, giving diagonal 
movement as well as left, right, up and down. 


You will be faced with the decision in this game between 
trying to complete the maze in the shortest possible time 
and collecting the bonus chalices. We have left it up to you to 
decide how you wish to approach this problem. Remember 
that the higher the level of difficulty, the harder the maze 
and the higher the value of the bonus chalices. 


Variables 

p(40, 22) Positions within the maze 

z$(1000) Stores the moves played for the replay option 

df Level of difficulty 

diff Maximum number of blocked positions per line 

b Random position across a line for inserting 
blocks 

m Random column for placing chalices 

n Random row for placing chalices 

0) Column number of the position of your man 

q Row number of the position of your man 
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d Number of moves made 


bp Number of chalices collected 
t Time at start of maze 

tm Total time taken in seconds 
Program 


Lines 110-160 draw the grid for the maze. 


Lines 200-260 randomly generate positions for blocks and 
print them. 


Lines 300-360 randomly generate positions for the chalices 
and print them. 


Lines 370-3990 print the finishing position and store it in the 
array. 


Line 410 checks that the starting position is not blocked. If 
itis, then the program goes to a subroutine in line 580. 


Line 430 prints your man. 
Line 440 stores your position for the replay. 


Line 470 checks whether you have pressed ‘q’. This is an 
escape routine in case you have a maze where you are totally 
blocked in. 


Line 480 increments the number of moves made. 


Lines 500-530 update the values for the row and column 
position of your man. This is done using truth testing (see 
explanation below). 


Line 540 prevents you from moving to a position where there 
is a block. 


Line 550 checks whether you have collected a chalice. 


Line 560 checks whether you have reached the end of the 
maze. 


Line 589 is the subroutine which repositions your man at the 
start of the maze if the starting position is blocked, by moving 
you one space to the right. 


Lines 590-629 reset the values of your position to those of 
the previous position if you have tried to move into a blocked 
square. 
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Line 700 determines the time taken to complete the maze. 
Lines 760-790 display options. 


Lines 800-850 replay the moves you have made (see 
explanation below). 


Lines 900-950 replace the chalices for another game in the 
same maze. 


Explanation 
The array p(40, 22) holds all the information for the maze, 
which consists of 40 columns of 22 rows. Each position 
within the maze therefore has its own position within the 
array. For a block in the maze we put a 1 in that position in 
the array. For example, if we have a block at column 3, row 
4 then the value held in the array at p(3,4) would equal 1. 

This is also done for the positions of the chalices, where 
these positions are given the value 2. For example, if we 
have a chalice at column 4, row 6 then the value held in array 
at p(4,6) would equal 2. 

The same is done for the finishing position of the maze 
where the value held in the array is 3. 


Lines 500 to 530 use a very complex form of logic to update 
the position of the man quickly and efficiently. Line 500 could 
have been written as a series of IF... THEN... statements, 
such as: 


IF k$ =“7” theno=o-1 

IF k$ = “4” theno=o-1 

IF k$ = “1” theno=o-1 
and so on 


From the previous chapter in this book you will know that 
the truth test on the Amstrad returns a value of — 1 if the test 
is true and @ if it is false. In line 500 then, if you have pressed 
7 the truth test (k$ = “7”) will return the value of — 1, while 
the other truth tests in that line will all return the value of 0. 
Line 50@ then could be read as: 


500 o=0+(—1)+(@)+(@)—-@ —-@)- @) 


Pressing 7 is a diagonal control which has to update 
both the row and column positions, so ‘7’ is used in the truth 
testing to update the values of both o and q. 
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Line 510 checks to make sure that your position is not 
outside the maze by using a further truth test using the 
comparative arithmetic operators. If the truth test is 
positive (ie — 1), then the value of o will automatically 
be adjusted to keep you inside the maze. 

Lines 520 and 53@ have the same function as lines 500 and 
51 but this time they update the value for the row position. 

The array z$(d) holds the row and column numbers of the 
position you are in. Because d is the number of moves you 
have made, z$ actually holds each position that you have 
been in as you have moved through the maze. This is done 
by taking the values of the row and column positions (o and 
q) and converting them into a string stored in the array z$. 

For example if your position in the maze is column 40, row 
33 then the string held by z$ for that move number (d) would 
be: 


chr$(o) + chr$(q) 
which, in the computer’s memory, would look like: 
se (i + a hd = “ ” 


The values from the array z$ are used in the game for the 
replay option and also to reset the values for o and q if you 
have made an invalid move, by reversing the process used 
to store them in z$: 


o=ASC(LEFT$(z$(d), 1)) 
q= ASC(RIGHT$(z$(d), 1)) 


We don’t like to give high scores, but it is possible to 
complete the maze in under 10 seconds. Good luck! 


9 REM MAZE PLAYS 
19 CLS 

2@ ENV 1,19,1,1 

38 DIM p(49,22) 

49 DIM z#(1929) 

5@ INK 3,6 

68 INPUT "difficulty level (1 to 5) "sd¢ 
rdiff=dt+15 

99 REM DRAW GRID 

19@ CLS 

118 FOR x= TO 624 STEP 16 

128 PLOT x,48:DRAWR @,352,2 
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138 
148 
1598 
169 
199 
299 
219 
228 
238 
249 
258 
266 
299 
382 
318 
328 
338 
349 
3358 
368 
378 


NEXT 

FOR y=47 TO 49@ STEP 16 
PLOT 9,y:DRAWR 624,9,2 
NEXT 

REM GENERATE MAZE 

FOR a= 1 TO 22 

FOR 1= 1 TO diff 
b=INT(RND (1) #39) +1 
p(b,a)=1 

LOCATE b,a:PRINT CHRS(143) 
NEXT 1 

NEXT a 

REM GENERATE CHALICES 

FOR x=1 TO 8 
mM=INT(RND(1) #39) +1 
n=INT(RND (1) #21) +1 

IF p(m,n)=1 THEN 319 
LOCATE m,n: PRINT CHR®(171) 
pi(m,n)=2 

NEXT x 

PEN 3:LOCATE 38,21:PRINT CHR®(222)5C 


HRS (223) 
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LOCATE 38,22:PRINT CHR#®(221) 5; CHRS&(22 


@):PEN 1 


39D 


p(38,21)=3:p (39,21) =3:p (38,22) =3:p(3 


9,22)=3 


399 
492 
410 
429 
430 
449 
459 
462 
972 
489 
499 
499 
3599 


REM MAIN PROGRAM 
o=1iqg=1lid=1:ibp=9 

IF pt(o,q)=1 THEN GOTO 589 
t=TIME 

LOCATE 0,q:PRINT CHR#(249) 
z$(d)=CHRS (0) +CHR®(q) 
k#=INKEYS 

IF k#®="" THEN 459 

IF k#="q" OR k#="Q" THEN 799 
d=dtt 

LOCATE 0,q:PRINT CHR#(32) 
REM UPDATE POSITION 

O=0+ (kS="7") + (kKB="94") + (kKB="1") - (ks=" 


9") - (kB="6") -(kS="3") 


51g 
328 


O=0-(0¢1)+(0>39) 
g=qt (kB="7") + (kS="G") + (kB="F") - (kS=" 


1") - (kB="2") - (k#="3") 


41 


S38 g=q-(q<1)+(qr22) 

549 IF pta,q)=1 THEN GOTO 59¢ 

5598 IF p(o,q)=2 THEN bp=bpti:SOUND 1,299 
319,15,1 

569 IF p(a,q)=3 THEN 768 

572 GOTO 43¢ 

S8@ c=ot+1:GOTQ 419 

599 d=d-1 

688 oO=ASC(LEFTS(z#(d),1)) 

618 q=ASC(RIGHTS(z#$(d),1)) 

628 GOTO 434 

699 REM PRINT SCORE & MENU 

7BS tm=(TIME-t) /396 

71@ FOR z=2898 TO 19@ STEP -4 

726 SOUND 1,2,10,15 

738 NEXT z 

748 PEN 1 

7358 LOCATE 1,24: PRINT"You took "; INT(tm) 
5"secs. and scored "sSINT(3909-((tm+d) ¥29 
V+bpH( SMR (diff-15))) 

768 INPUT " press <r> <¢<n> or <p> " 
5s% 

?7@ IF s#="r" THEN 899 

780 IF s#="p" THEN 999 

796 RUN 

799 REM RETRACE 

ea@ FOR i=1 TO d-i 

S1@ o=ASC(LEFTS(z#(i),1)) 

G28 q=ASC(RIGHT#(z#(i),1)) 

839 LOCATE o0,q:PEN 3:PRINT CHR#(143) 
848 FOR k=1 TO 38@:NEXT k 

859 NEXT i 

868 GOTO 7289 

899 REM PLAY AGAIN 

99@ FOR x=1 TQ 39 

916 FOR y=1 TO 22 

928 LOCATE x,y 

93@ IF p(x,;y)=2 THEN PRINT CHR.:(171) 
94 NEXT y:NEXT x 

9598 GOTQ 499 
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8 Stop the invasion 


How long can you hold back the invasion force from planet X? 
You are the sole surviving member of the Lunar Advance 
Warning Earth Defence task force. All the other members of 
your platoon are dead or dying and it is up to you to slow the 
invaders down as much as possible to give Earth enough time 
to prepare its own defences. 

You move your photon cannon left and right using the 1 and 
@ keys, and pressing the space bar releases a high-energy 
photon bolt. The longer you survive, the more difficult the 
game becomes. At the end of the game you will be givena 
score and your hit/miss ratio. If you can survive until the sixth 
attack wave and achieve a hit/miss ratio greater than 60 per 
cent then Earth will be safe. 


Variahles 

a(1) Number of aliens in each attack wave 

a$(10) Holds the information for each attack wave 

sou The tone period for music 

b$ Your photon cannon 

level Number of the attack wave you are currently 
fighting 

gpos Position of your photon cannon 

height Height of the approaching aliens 

ti Number of moves aliens make to the left before 
they move closer 

ke$ Key pressed 

m Random number for generating aliens on each 
level 

fi Holds the pixel position of your photon cannon 

sh Shots made in each attack wave 

hh Height of the photon torpedo 

gh Used to determine positions on the screen for 
displaying the torpedo. 

hits Number of aliens hit in each attack wave 


hitsm Total number of aliens hit 


shm Total number of shots made 
pr Duration of notes for music at end of game 
Program 


Lines 20-30 dimension arrays to hold number of aliens 
in each wave (a) and the string containing the aliens (a$). 


Lines 50-60 define the volume envelopes used in the music 
and shooting routines. 


Line 70 sets the keyboard scan so that no key repeat will 
occur. This is so that you cannot hold a key down for 
repetitive firing or moving. 


Lines 80-100 define graphic characters for aliens and your 
cannon. 


Lines 170-200 read notes from DATA statement and play 
music. 


Lines 220-240 draw base force shield. 
Line 320 moves the aliens (see explanation below). 


Line 350 scans the keyboard. If a key has been pressed then 
the program goes to line 700. 


Line 380 advances the aliens one line. 


Line 390 checks whether aliens have reached your force 
shield. 


Lines 500-600 generate the number of aliens and their _ 
relative position in all ten attack waves (see explanation). 


Line 710 moves your cannon one space to the right. 
Line 720 moves your cannon one space to the left. 


Line 819 calculates the position of your cannon in High 
Resolution Mode. 


Line 820 cannon shot sound. 

Lines 840-870 move and display photon torpedo. 

Lines 880-890 check whether the torpedo hit an alien. 
Line 910 keeps aliens moving while torpedo is on screen. 
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Line 1000 deletes alien that was hit from a$ by replacing it 
with a space. 


Line 1010 sound for explosion. 


Line 1030 decrements the number of aliens in the wave. 
If there are none left, then advance to next level. 


Lines 1720-1730 determine final score and percentage 
of hits made. 


This program makes use of a sideways scrolling routine to 
move the aliens. The scrolling routine can be used to move 


any string of characters from right to left across the screen. 
It is a one line routine: 


9000 CLS 


9010 a$= “HELLO THIS IS THE SIDEWAYS 
SCROLL. ” 


9020 a$= MID$(a$, 2, LEN(a$)) + LEFT$(a$, 1) 
9030 LOCATE 1,1: PRINT a$ 
9040 GOTO 9020 


If you then type GOTO 9000 to start this routine, the 
message stored in a$ will scroll from right to left on your 
screen. This is done by removing the first character in a$, 
shifting the other characters one position to the left within 
the string a$ and adding the first character to the end of the 
string. That is, a$ above after line 9020 will become: 


“ELLO THIS IS THE SIDEWAYSSCROLL. __-H” 


and after running through this line a few times, a$ will 
become: 


“THE SIDEWAYS SCROLL. HELLO THISIS” 


The command MID$(a$, 2, LEN(a$)) takes the string 
a$ from the second position onwards. The command 
LEFT$(a$, 1) takes the first character in the string a$. So: 


a$ = LEFT$(a$,1) + MID$(a$, 2, LEN(a$)) 
will make no change at all to the string a$. However, by 
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reversing this, the first character moves to the end of 
the string. 

A sideways scroll to the right is done with virtually 
the same command, ie 


a$ = RIGHT$(a$, LEN(a$)) + MID$(a$, 1, LEN(a$) — 1) 


Play around with this routine using different messages. 
Try changing line 90390 to: 


LOCATE 1,1: PRINT LEFT$(a$, 10) 


The routine from line 500 to line 600 generates the 
positions for the aliens within the string a$. There are two 
loops in this routine—c, which is the number of the wave 
currently being generated and x, which is the position of the 
alien or blank space being placed within the string for that 
wave. Line 530 generates a random number between 0 and 
3. If this number is less than 1 then an alien is placed in that 
position within the string, otherwise a space is placed there. 
Line 5590 inserts the space in the string. Line 590 inserts an 
alien in the string and increments the variable (a) holding the 
number of aliens in the string for that wave. 


9 REM STOP THE INVASION 
1@ CLS 

2@ DIM al1@ 

3@ DIM aStia) 

49 INK 2,26:INK 3,1:INK 1,24: INK @,9:BQR 
DER @:PAPER @ 

5@ ENV 1,1@,-1,18 

6@ ENV Z,2@,-1,15 

7@ SPEED KEY 255,255 

&@ SYMBOL AFTER 217 

94 SYMBOL 217, 16,56, 124, 238, 238, 184,186, 
254 

1@@ SYMBOL 218,129,66,60,66, 98, 36, 36,24 


119 PRINT "GNE MOMENT PLEASE... INITIAL 
IZING." 

12@ LOCATE t1,11:PRINT "USE" 

13@ LOCATE 15,12: PRINT "1 for LEFT" 
£4@ LOCATE 15,14:PRINT "@ tor RIGHT" 
{5@ LOCATE 13,16:FRINT "SPACE for FIRE” 
168 GOSUB S9¢ 
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17@ RESTORE :FOR zz=1 TO 2:FOR zx=1 TO 1 
6 

18@ READ sou: SOUND 2,s50u,5@,15,1 

19@ NEXT zx 

292 RESTORE :NEXT zz 

218 CLS 

228 bS=CHRS (217) 

238 PEN 2:FOR pl=1 TO 48 STEP 2:LOCATE p 
1,18:PRINT CHR®(222) 5; CHR®(223) NEXT pl 
248 FOR pl=1 TO 4@ STEP 2:LOCATE pl,1i9:P 
RINT CHR®(220);CHRS(221):NEXT pl:PEN 1 
259 level=1 

268 gpos=29 

278 height=3 

299 REM START OF GAME 

392 FOR ti=@ TO 69 

31@ LOCATE 1,height:PRINT a®( level) 

328 a®(level) =MID$(a#( level) ,2,49) +LEFTS 
(a@(level),1) 

338 SOUND 129, 1999,5,18 

349 LOCATE gpos,25:PRINT b® 

358 ke@=INKEYS: IF ke#<>"" THEN 799 

368 NEXT ti 

378 LOCATE 1l,height:PRINT SPACES(42@) 
388 height=heighttl 

398 IF height=18 THEN GOTO 1788 

492 GOTO 399 

548 REM initialize 

319 FOR c=1 TO 19 

S28 a®(c)=""“:alc)=8 

S38 FOR x=1 TO 49 

349 m=INT(RND(1) #3) 

5538 IF m<i THEN GOTO 699 

568 a®(c)=ae(c)+" * 

5S7@ NEXT x 

58a NEXT c 

598 RETURN 

692 aS(c)=aSl(c) t+CHRS(218) cat(c)=atc) tl 
618 GOTO 5768 

699 REM CHECK FOR KEYS 

7@@ LOCATE gpos,25:PRINT " ° 

719 IF ke#®="@" THEN gpos=gpos- (gpos>2) 
728 IF ke®="1" THEN gpos=gpos+ (gpos<39) 
738 IF keS=" " THEN 899 


748 GOTO 349 

799 REM SHOOT ROUTINE 

8928 LOCATE gpos,25:PRINT bt 

819 Ffi=gpos*16-8 

828 SQUND 129,199,20,19,1,9,8 

838 sh=sht+1:LOCATE 1,1:PEN 2:PRINT “SHOT 
S- "§sh:PEN 1 

8498 FOR gh=1 TQ 4 

858 FOR hh=(gh-1)#198 TQ gh¥19@ STEP 8 


869 IF gh=1 THEN hh=hh+t+16 

878 PLOT fi,hh,2:PLOT fi,hh,@ 

889 IF TEST(fit2,hh)=1 THEN 1999 

899 IF TEST(fi-2,hh)=1 THEN 1999 

989 NEXT hh 

91B aS(level) =MIDS(aS( level) ,2,49) +LEFTS 
{(aS(level),1):2:LOCATE 1,height:PRINT a#(1 

evel) 

929 NEXT gh 

932 GOTO 349 

999 REM HIT ROUTINE 

1999 LET a®(level)=LEFT#(a#( level), (gpos 

~1))+" "+RIGHT#(aS( level), (49-gpos) ) 

1@1@ SOUND 129,209,69,15,2,9,15 

1929 hits=hitsti:LOCATE 29,1:PEN 2:PRINT 
“HITS-"shits:PEN 1 

1930 allevel)=a(level)-1i:IF a(level)=9 T 

HEN GOTO 1192 

1949 GOTO 349 

1999 REM END OF LEVEL 

1199 CLS: RESTORE :LOCATE 18,19:PRINT "we 
11 done" 

111@ PRINT: PRINT "you have completed lev 

el "S level 

1128 PRINT :PRINT "YOU MADE “j;shs “SHOTS 
AND HIT “shits 

1138 hitsm=hitsmthits: shm=shm+sh: sh=8:hi 

ts=9 

1148 PRINT: PRINT “here we go again...." 

115@ FOR zz=1 TO 2 

1168 FOR zx=1 TO 16 

1178 READ sou:SOUND 2,s0u,59,15,1 

11868 NEXT zx 
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1198 RESTORE:NEXT zz 

128@ CLS: level=level+l! 

1218 PEN 2:FOR pl=1 TO 48 STEP 2:LOCATE 
pl,18: PRINT CHRS (222) § CHRS(223) NEXT pl 
1229 FOR pl=1 TO 4@ STEP 2:LOCATE pl,1i9: 
PRINT CHRS(22@) ;CHRS(221) NEXT pl:PEN 1 
1238 GOTQ 399 

1499 REM DATA FOR SQUND 

1598 DATA 69,49,68,49,497,59,53,56 

151% DATA 64,49,69,49,495,45, 39, 3a 

1528 DATA 478, 199,478, 199,478,59,4978, 199 
3 482,198, 426,58,426, 199,978,509, 978,199,5 
96,509,478, 299 

1699 REM END GF GAME 

1768 CLS :LOCATE 5,1@:FPRINT "YOU HAVE BE 
EN DESTROYED..." 

17198 shm=shmtshihitsm=hitsmthits 

1728 PRINT: PRINT "FINAL SCORE = "s;hitsm* 
level: PRINT . 

1738 PRINT “HIT/MISS RATIO IS "“sZINT(hits 
m/shm¥199) 5 "%" 

1748 RESTORE 15208 

175@ FOR zz=1 TO il 

1768 READ sou:READ pr 

1776 SOUND 1,sou,pr,15,2 

1788 NEXT zz 

1799 PRINT: PRINT "PRESS ANY KEY FOR ANOT 
HER GO...": 

1898 IF INKEY#="" THEN GOTO 1899 

1819 RUN 


9 Triathlon 


You are competing for Amstradia in the triathlon event at 

the Home Computer Olympics. The triathlon consists of 
running races in the 100 metres, 200 metres and 400 metres. 
You run by pressing any two keys alternately on your key- 
board. To select the event you wish to run first, simply press 
the number key corresponding to the event. 

It is impossible to break out of this program using the (ESC) 
key. To break the program, you must first complete the race 
then by pressing g you can escape. 

Bear in mind that if you stop running with your fingers then 
your competitor will stop running on the screen but the clock 
will keep going. So keep on pounding that keyboard with 
those fingers. 

By the way, the world record for the 100 metres event (set 
in March 1985) is 10.16 seconds. 


Variables 
d(4) Array holding high scores 
body$(3) Array holding the three characters used to display 
the three body positions 
leg$(3) Array holding the three characters used to display 
the three leg positions 
a$ Running Track 
x Loop counter for music and change of ink colour 
dd$ Keyboard scan for menu selection 
so The tone period for music 
tm Metres to run 
Counter for metres run 
Initial time 
c$ Keyboard scan for running 
d$ Holds value of previous key pressed 
x Time at end of loop 
Cumulative time taken 
r$ Keyboard scan for return to menu at end of race 
cou Counter for body, leg and track movement 
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Program 

Lines 50-290 define graphics characters for the running 
person and the track and redefine the number characters 
to look like a digital display. 


Symbols: Head 220 221 
body1 222 223 
body2 232 233 
body3 232 233 
leg] 230 231 
leg2 226 227 
leg3 228 229 
big face 218 219 


numbers @ to 9 48 to 957 
Lines 310-330 generate the running track. 
Lines 580-630—demonstration mode. 


Lines 700-719 establish distance to be run from menu selec- 
tion. Since the formula at line 710 uses the value of the key 
pressed, the value for key 3 must be set to 4 in line 700. 


Lines 720-760 delete all menu information. 


Line 770 prints the stadium roof and then prints a back space 
(CHR§$(8)), so that the next print command begins at the start 
of the next line. 


Lines 780-800 print the crowd. 

Line 860—-see explanation. 

Line 870 sets a random pause between GET SET and GO. 
Line 1000 reprints the head. 

Line 101@—the sound of the starter’s gun. 

Line 1050—see explanation. 


Lines 1060-1080 scan the keyboard for keys pressed to run 
with. Line 1080 stores the value of the key pressed, c$ in b$. 
Then the next time through the loop, line 107@ checks that 
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the same key has not been pressed. This is so that you must 
run with alternating keys. 


Line 1090—sound of footsteps. 


Line 1130 determines total time taken by incrementing y by 
the difference in time between each key press. 


Line 1140 displays time taken to two decimal places, using 
the PRINT USING command. 


Line 1200 prints big happy face. 
Line 1210—sound of applause. 
Line 1220 displays final time. 


Line 1230 checks whether time taken is less than the current 
high score and updates the high score if it is. 


Lines 1240-1260—keyboard scan to return to main menu. 
This is the only place where you can break out of the program 
by pressing the q key. 


Line 1300 alternates the characters used for printing the body 
and the legs. 


Line 1330—sideways scroll routine for the track. 
Line 1400—sound for false start. 


Explanation 


CALL &BBO0. This is a direct ROM CALL. The basic key- 
word CALL is used to link machine code programs to BASIC 
programs. The CALL command can access machine code 
programs written by the user, or access the inbuilt machine 
code routines written in the Amstrad’s ROM. The number 
following the CALL command is the address in memory 
where the routine is situated. The ‘&’ in front of the number 
signifies to the computer that the number is in HEXadecimal 
notation (base 16) and not in DECimal notation (base 10) 
which is normally used for numbers. 

This particular call accesses a routine in the upper ROM 
of the Amstrad, which completely clears the keyboard buffer. 
You will have found by now that sometimes within a program 
you can press keys faster than the program can respond. This 
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is because each key press is placed on a queue, to be read by 
the program when it next requests a key input. This routine 
therefore empties the queue each time it is called. A major 
feature of the routine is that it also ignores the (ESC) key, so 
if you wish to make use of this routine in your own programs 
make sure that you have some way of breaking out of the 
program (see line 12590). 

There are many routines such as this built into the Am- 
strad’s ROM. The addresses for these routines can be found 
in the Amstrad Firmware Manual. ~ 

This program makes extensive use of the SYMBOL com- 
mand not only for the graphic displays, but also to redefine the 
whole character set for the numbers. It is even possible using 
the SYMBOL command to redefine the entire character set 
if, for example, you wanted to write in Arabic letters. This is 
a lot of hard work, but on the Amstrad using the SYMBOL 
command it is far easier than on most other popular home 
computers. 


9 REM TRIATHLON 
1@ CLS:MODE @ 

28 DIM d(4) 

3@ INK 2,16: INK 3,18:INK 4,14:INK 5,15:1 
NK 7,2 

4 DIM body#(3):DIM leg#(3) 

5@ SYMBOL AFTER 48 

6@ SYMBOL 222,3,5,9,17,9,5,1,1 :SYMBOL 2 
34,192, 255,9,9,9,9,9,9 

7® SYMBOL 223,192,226, 212, 20@,192,192,19 
2,192:SYMBOL 235,9,255,9%,9,9,9,9,9 

8@ SYMBOL 218,7,15,12,15,13,19,15,7 

98 SYMBOL 219,248,248, 152, 248, 216, 56, 248 
, 248 

198 SYMBOL 226,1,2,4,8,16,32,16,9 

119 SYMBOL 227,64,48,12,4,8,16,56,9 

128 SYMBOL 228,1,34,84,8,9,8,9,2 

139 SYMBOL 229,64,32,16,8,4,2,1,28 

148 SYMBOL 226,1,3,3,3,3,3,1,1 

15@ SYMBOL 221,192,224, 16@,224,112,128,2 
24,128 

168 SYMBOL 238,9,9,0,9,8,1,1,9 

178 SYMBOL 231,64, 96,80,96, 192, 64, 64, 96 
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18@ SYMBOL 232,1,3,3,;5,3,1,1 

199 SYMBOL 233,192,192, 224,246,192,192,1 
92,192 

29@ SYMBOL 48,14,17,17,9,17,17,194,98 

219 SYMBOL 49,9,1,1,9,1,1,9,9 

226 SYMBOL 5@,14,1,1,14,16,16,14,9 

238 SYMBOL 51,14,1,1,14,1,1,14,9 

24@ SYMBOL 532,6,17,17,14,1,1,9,9 

259 SYMBOL 53,14,16,16,14,1,1,14,9 

268 SYMBOL 54,14,16,16,14,17,17,14,¢6 
278 SYMBOL 355,14,1,1,9,1,1,9 

28@ SYMBOL 56,14,17,17,14,17,17,14,¢ 

299 SYMBOL 57,14,17,17,14,1,1,14,9 

308 ag="" 

319 FOR x=1 TQ 5 

324 at=ats+CHRS (2349) +CHRB(235) +CHRS(235) + 
CHR (235) 

338 NEXT x 

348 body#(1)=CHRS(222) +CHRS (223) 

35@ FOR x=2 TO 3 

368 body#(x) =CHR# (232) +CHRS(233) 

378 NEXT x 

388 leg#(3) =CHR# (228) +CHR$(229) 

398 leg#(2) =CHR# (226) +CHR# (227) 

4G leg#(1) =CHR#( 234) +CHR# (231) 

499 REM MENU 

5@@ LOCATE 5,17:PEN 2:PRINT CHR#(228);CH 
R#(221):PEN 1 

51@ LOCATE 4,1:PRINT “RECORD TIMES" 

520 LOCATE 1,3:PRINT USING “###.##"3d(1) 
$d(2) 34 (4) 

53@ LOCATE 1,5:PRINT "1. 198 metre sprin 
| id 

54@ LOCATE 1,6:PRINT “2. 288 metre dash” 
55@ LOCATE 1,7:PRINT "3. 498 metre run” 
56@ LOCATE 5,11:PRINT "Select event " 
37@ RESTORE 

58@ FOR x=1 TO 36 

59@ dd@=INKEYS: IF dd#>"@" AND dd#<"4" TH 
EN 7989 

6@@ LOCATE 6,24: INK 8, INT(x/2)+4:PEN 8:P 
RINT “triathlon” 

619 READ so:SOUND 1,50,30,15:SOUND 2,756 
35;13,9,8,2:SOUND 4,s0+1,39,15 
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628 GOSUB 1399 

638 NEXT x: RESTORE: GOTO 589 

699 REM PRINT STADIUM 

792 IF ddS="3" THEN dd$="4”" 

718 tm=VAL (dd$) #33 

728 LOCATE 4,1:PRINT SPACE$(13) 

738 LOCATE 1,5: PRINT SPACES(29) 

748 LOCATE 1,4:PRINT SPACES(29) 

758 LOCATE 1,7°:PRINT SPACES(29) 

76M LOCATE 6,24: PRINT SPACES(9) 

778 LOCATE 1,1@:PEN 72PRINT "/\/\/\/\/\/ 
N/N/N/N/N\ "5 CHR®(8) 2 PEN 2 

788 FOR x=1 TO 68 

798 PRINT CHR® (224) ; 

8828 NEXT x 

819 PAPER 3:PRINT " " 
:>PAPER @ 

8298 PEN 1 

838 LOCATE 1,3:PRINT" ON YOUR MARKS . 


849 FOR pause=1 TO 1999:NEXT 

8398 LOCATE 3,3:PRINT” GET SET ed 
862 CALL &BBOO 

8728 FOR pause=1 TO INT(RND(5) ¥509+599) :1 
F INKEYS#<>"" THEN GOTO 149¢ 

888 NEXT 

898 LOCATE 3,3:PRINT” Go * 
999 REM MAIN PROGRAM 

1999 LOCATE 5,17: PEN 2:PRINT CHR#(229) 5C 
HR#(221) 

1918 SOUND 1,1999,15,15,9,9,12 

1929 FOR z=1 TO tm 

1938 t=TIME 

1948 GOSUB 1392 

19352 CALL &BBaG 

1962 c#=INKEYS: IF c#="" THEN 1969 
1872 IF b#=c® THEN 1962 

1982 b*=c$ 

1992 SOUND 129,1999,2,15 

1188 GOSUB 1399 

1119 x= TIME 

1126 GOSUB 1399 

1138 y=y+t+x-t 
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114@ LOCATE 1,1:PEN 1:PAPER S: PRINT USIN 
G “#84. ##"Sy/3O95°:PRINT " "PAPER @ 

115@ NEXT z 

1199 REM TIME 

1298 LOCATE 5,17:PEN 2:PRINT CHR®(218);5C 
HR#(219):PEN 1 

1218 SQUND 1,9,308,15,9,9,15 

1229 LOCATE 1,22: PRINT"*YOUR TIME WAS ";:; 
PRINT USING "##. ##" 5 y/399 

1238 IF y/3OB<DI(VAL(dd#)) OR d(VAL (dd) ) 
=@ THEN d(VAL (dd) )=y/399 

1248 LOCATE 5,24: PRINT"PRESS ENTER":LET 
r$=INKEYS 

1258 IF r%="q" THEN SPEED KEY 38,2: END 
1269 IF r#<>CHR®(13) THEN 1249 

1278 y=98:CLS :GOTO 39g 

1299 REM RUNNING ROUTINE 

1398 cou=couti:IF cou=4 THEN cou=1 

1319 LOCATE 3,18:PEN 3:PRINT body#(cou) 
1328 LOCATE 3,19:PEN 2: PRINT leg®(cou) 
1338 a%=MID$(a%, 2,29) +LEFT# (a, 1) 

1348 PEN S:PAPER 4:PRINT aS: PAPER @ 

13528 RETURN 

1399 REM FALSE START 

1498 SOUND 1,699,69,15 

1418 CLS:LOCATE 53,19: PRINT"FALSE START" 
1428 FOR PAUSE=1 TO 1999:NEXT 

1439 CLS:GOTO 779 

1499 REM DATA FOR MUSIC 

1592 DATA 478, 358, 319, 284,319,319, 319, 37 
9,379,379,9,9,978, 358, 319, 284,319,319, 31 
953795379, 379,9,8, 379, 358, 379, 426, 478,47 
8,478, 478,478, 478, 478,478 


57 


t 


P 
zt 5. 


Spry it 
ii 


4etre $§ 
1etre d 


i 
mm 
metre run 


‘aaa Oe 
i eT ee 


Ton AD ge 


abut 
_—_ 
 & 
a, 
et 
rr) 
a, 
a 
| 
_ « 
vi 


10 Sound envelope generator 


This program is designed to help you learn how to use the 
sound commands on the Amstrad. Making your computer 
produce sound is one of the hardest aspects of programming, 
but once you have mastered it you will find it one of the most 
fascinating. The sound chip which the Amstrad uses is in our 
opinion one of the best on the market and is similar to the one 
that is used in the BBC micro. Although at first it appears that 
it is a rather complicated procedure to produce a sound, by 
making full use of the Volume and Tone envelope commands 
you have far greater control of the sound you are creating. 
The ENV command defines the Volume envelope and the 
ENT command defines the Tone envelope. The Volume 
envelope (ENV) is used to create the Attack, Decay, Sustain 
and Release (ADSR) curve used in simulating sounds. The 
Tone envelope (ENT) is used to create the rising and falling 
of the pitch within the sound. For example to make a laser- 
type sound you would want the pitch of the note to fall rapidly 
to give it a Doppler effect. Doppler is the name given to the 
effect that movement has on the pitch of sound. The typical 
example given for the Doppler effect is that of a steam train, 
where as the train approaches the pitch of the note rises, then 
as the train moves away the pitch drops. (See example 
below. ) 

This program helps you to define Volume and Tone 
envelopes and then try them. The envelopes are also 
displayed graphically. 


Using the program 


From the Master menu you would initially select option 1 

to create a Volume envelope. You will then be asked which 
‘Envelope no.’ you wish to define. This is because you can 
define up to five different Volume envelopes within the pro- 
gram. You will then be asked for the ‘No. of sections’ 

you wish to define in your envelope. Each section consists 
of a ‘Step count’, being the number of steps, a ‘Step size’, be- 
ing the increase or decrease in volume for each step, anda 
‘Pause time’, being the time taken for each step. This takes 
the same format as is used in the Sound Primer in your man- 
ual (ch 6, p 8). The legal values for each of these parameters 
are also shown in your manual. 
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After defining a Volume envelope you will be automatically 
returned to the Master menu. From here you would now sel- 
ect either option 1 to create another Volume envelope or 
redefine a previous one, or option 2 to create a Tone envel- 
ope. You are then prompted through the creation of the Tone 
envelope in exactly the same way as with the Volume envel- 
ope. A point to bear in mind when defining envelopes is that 
the time taken for the Tone Envelope should be the same 
time taken for the Volume envelope if you want the entire 
envelope to be played. 

Option 3 on the Master menu takes you to the part of the 
program where you can try out the envelopes you have defi- 
ned. You will first be asked which envelope numbers you wish 
to hear. The graphs of the envelopes will then be displayed, 
along with their definitions. A note will then be played using 
these envelopes. Control of the program is then handed back 
to you with a new menu offering: 


r to repeat the note 
to return to the Master menu 

p to go on to the next section of the program where 
you can try different notes using any of the keys 

c to select a different combination of Volume and 
Tone envelopes (assuming you have defined 
several) 

n to add an amount of noise to your sound 


Simply press the key corresponding to your selection. 

If you select option p, the screen will clear and you will now 
be in Keyboard Mode. Your computer keyboard will now 
function as a musical instrument where each key pressed will 
play a different note using the envelopes you have defined and 
selected. Pressing the space bar will return you to the previ- 
ous screen. Some keys will, however, break the program 
with a TYPE MISMATCH error, in which case simply type 
in: 


GOTO 1200 


to return to the Master menu without losing the envelopes 
you have already defined. 
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Examples 


Try these sample envelopes: 

ENV 1,1,0,40 (1 section) 
ENT 1,46, 1,1, (1 section) 
ENV 1,1,0,40 (1 section) 
ENT 2,3, —127,1,40,10,1 (2 section) 
ENV 1,1,0,40 (1 section) 
ENT 3,10, —1,1,10,1,1,20, —1,1 (3 section) 


ENV 2,5,20,2,5, — 10,1,5,0,2,5,10,1,5, -20,2 (5 section) 
ENT 4,1,0,40 (1 section) 


Try various combinations of these envelopes. Remember 
when entering them that after inputting the envelope num- 
ber you will have to tell the computer how many sections you 


will be defining. 

Variables 

a(5, 5) Step count for Volume envelopes 

b(5,5) Step size for Volume envelopes 

c(5,5) Pause time for Volume envelopes 

d(5,5) Step count for Tone envelopes 

e(5,5) Step size for Tone envelopes 

£(5,5) Pause time for Tone envelopes 

n(5) Number of sections within each Volume 
envelope 

0(5) Number of sections within each Tone envelope 

ve Volume envelope number 

vt Time taken for Volume envelope (used to 
determine duration of note) 

te Tone envelope number 

tt Time taken for Tone envelope 
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noi Noise level 


if Reads menu selection 

in$ Reads keyboard for characters 

i Stores character as its ASCII code 

x Input for selection from Master menu 
Program 


Line 40 dimensions arrays for holding the values for the 
Volume envelopes. Each of the arrays (a, b, and c), holds 
the value for the section in each envelope. For example 
a(1, 1) holds the step count for the first section of ENV 1, 
b(1, 1) holds the step size for the first section of ENV 1 and 
c(1, 1) holds the pause time for the first section of ENV 1. 
Similarly, c(5,5) would hold the value for the pause time for 
the fifth section of ENV 5. 


Line 50 dimensions arrays for holding the values for the Tone 
envelopes. The arrays d, e and f, correspond to the arrays 
a, band c, for the Volume envelopes. 


Line 60 holds the number of sections used in each envelope. 


Line 70 sends you to the Master menu. It is better program- 
ming where possible to put your main menu at the end of the 
program and your subroutines at the beginning. 


Lines 100-140 draw the axes for the Volume envelope graph. 
Line 180 resets the values for the selected envelope number. 


Line 230 sends you to the section that draws the envelope on 
the graph. 


Lines 250-280 determine the duration of the Volume 
envelope. 


Line 300 defines ENV to the sound processor. 

Lines 349-350 draw the envelope on the graph. 

Lines 400-460 draw the axes for the tone Envelope graph. 
Line 500 resets the values for the selected envelope number. 


Line 550 sends you to the section that draws the envelope on 
the graph. 


Lines 570-610 determine the duration of the Tone envelope. 
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Line 620 defines ENT to the sound processor. 
Lines 660-670 draw the envelope on the graph. 


Lines 730-760 print out the Volume and Tone envelopes you 
have selected to play. 


Lines 770-840 display the selected Volume and Tone 
envelope graphs. 


Line 859 sets the noise level to zero. 

Line 860 plays a note using the selected ENV and ENT. 
Lines 870-950—music-playing menu. 

Lines 960-980—routine for adding noise. 


Lines 1110-1140 read the keyboard for keys pressed, store 
key pressed as a string (in$), check whether the space bar 
has been pressed. Convert in$ to its ASCII value (in). 


Line 1150 plays sound using the selected ENV and ENT with 
the tone of the note determined by ‘in’. 


Lines 1200-1230—Main menu. 
Line 1240 sends you to the relevant subroutine. 


EUS + 607? 1 2c F got? 4-19Q°  F8e4 1 - 
“ie 2 Sie 16 ak Se 


xr to repeat m for menu YP to play 
c to change ENU/ENT n for noise 
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9 REM SOUND ENVELOPE GENERATOR 

1@ MODE 1:BORDER @ 

28 INK @,@8: INK 1,26 

38 PEN 2 

48 DIM a(3,3):DIM b(35,5)°:DIM c(5,5) 

32 DIM d(5,5):DIM e€(35,5):DIM £(5,5) 

68 DIM n( 35): DIM o(3) 

7@ GOTO 1299 

99 REM VOLUME ENVELOPE 

198 ORIGIN 32,384 

118 DRAW 8,-236 

128 DRAWR 5355,9 

138 LOCATE 1,1: PRINT" VOLUME" 

148 LOCATE 36,18:PRINT"“ TIME" 

152 WINDOW #1,1,49,28,25 

168 CLS #1: INPUT #1, "Envelope no.",ve 
178 CLS #1: INPUT #1,"No. of sections ",n 
(ve) 

188 FOR z=1i TO S:ia(z,ve)=@:b(z,ve)=8:c(z 
3 Ve) =O: NEXT z 

199 FOR il=1 TO nive) 

299 CLS #1: INPUT #1,"°Step count “jalil,v 
e) — 

219 CLS #1: INPUT #1,"Step size “jb(il,ve 


222 CLS #1: INPUT #1,"Pause time “sc(il,v 
2328 IF il=1 THEN GOSUB 342 ELSE GOSUB 35 


242 NEXT i1 

238 vt=0 

268 FOR tli=1 TO nive) 

278 vt=vtta(tl,vedtc(tl,ve) 

288 NEXT t1 

299 CLS #1:PRINT #1,"Time used for env"}3 
ves"is "svt 

388 ENV ve,a(i,ve),b(1,ve),c(l,ve),al2,v 
ee), b(2, ve) ,c(2,ve),a(3, ve), b(3, ve) ,cl3,v 
e),a(4,ve),6(4, ve) ,c(4,ve),a(3, ve) ,b(5,Vv 
e),c(3,ve) 

318 LOCATE 2,23:PRINT"press any key" 

328 WHILE INKEY#="";WEND 

3398 CLS: RETURN 
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348 ORIGIN 32,128 

358 DRAWR alil,ve)#¥clil,ve),a¢il, ve) #b(i 
1, ve) :RETURN 

399 REM TONE ENVELOPE 

499 ORIGIN 32,384 

418 DRAW @,-256 

429 MOVER 9,128 

439 DRAWR 535,29 

449 LOCATE 1,1: PRINT” TONE" 

45@ LOCATE 1,2: PRINT“PERIOD" 

469 LOCATE 36,97: PRINT" TIME" 

4728 WINDOW #1,1,49,28,25 

489 CLS #1: INPUT #1, "Envelope no. ",te 
4999 CLS #1: INPUT #1,"No. of sections ",0 
(te) 

598 FOR z=1 TO S:idit(z,te)=8ie(z, te) =O f(z 
»te)=M8:NEXT z 

518 FOR il=1 TO o(te) 

529 CLS #1: INPUT #1, "Step count “jdlil,t 
e) 

530 CLS #1: INPUT #1,"Step size “;e(il,te 


549 CLS #1: INPUT #1,"Pause time "sf(il,t 
559 IF il=1 THEN GOSUB 669 ELSE GOSUB 67 


5368 NEXT il 

S578 tt=% 

58@ FOR tl=1 TO o(te) 

59O tt=tttd(tli,tel#fi(tl, te) 

692 NEXT t1 

618 CLS #1:PRINT #1,"Time used for ent i 
s "tt 

628 ENT te,d(i,te),e(i, te), f(i,te),d(2,t 
@),e(2,te),f(2,te),d(3,te),e(3,te), f(3,t 
e),d(4, te) ,e(4, te), #(94, te), d(5,te),e(5,t 
e),#(5,te) 

638 LOCATE 2,25:PRINT"press any key" 

648 WHILE INKEY#="":;WEND 

658 CLS: RETURN 

468 ORIGIN 32,256 

678 DRAWR dlil,ted#f(il, te) dt(il,te)*eli 
1, te) sRETURN 
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699 REM PLAY SOUND 

79B CLS:LOCATE 1,11: INPUT "Which Volume 
Envelope";ve 

718 CLS:SLOCATE 1,11: INPUT "Which Tone En 
velope";te 

728 CLS 

73@ LOCATE 1,13: PRINT"ENV"; ve3 

748 FOR d1l=1 TO nlve): PRINT", ";aldl,ve)j 
"s"3b(d]l,veds","3C(d]1,ve)5:NEXT dl 

7358 LOCATE 1,16: PRINT"ENT"; te; 

768 FOR dl=1 TO alte): PRINT", "3d(dl,te) 3 
","Sel(dl,teds","5F(dl,te)s;:NEXT dl 

778 QRIGIN 32,398:DRAW @,-128:DRAWR 275, 
@:QRIGIN 32,262 

?8@ FOR il=1 TO nive) 

798 DRAWR alil,ve)/2¥c(il,ve)/2,a(il,ve) 
/2%¥b(il,ve)/2 

8392 NEXT il 

818 ORIGIN 324,399: DRAW @,-128: ORIGIN 32 
8,322: DRAW 275,@0:ORIGIN 329,322 

826 FOR il=1 TQ o(te) 

839 DRAWR d(il,te)/2¥#(il,te)/2,d(il,te) 
/2¥e(il,te)/2 

842 NEXT il 

8598 ENV ve,a(1,ve),b(1,ve),c(l,ve),al2,v 
@e),b(2,ve),c(2,ve),a(3,ve),b(3,ve),cl(3,Vv 
@),a(4,ve) ,b(4, ve) ,c(494, ve), a(5, ve) ,b(S,v 
e),c(S,ve) 

868 ENT te,d(1,te),e(l, te), f(l,te),d(2,t 
e),e(2, te), f(2,te),d(3,te),e(3,te),f(3,t 
2#),d(4,te),e(4, te), #(494, te), d(5,te),e(5,t 
e),f(5,te) 


878 noi=@ 

888 SOUND 1,255,9,7,ve,te,noi 

899 LOCATE 1,23:PRINT"r to repeat m Ff 
or menu p to play" 

999 LOCATE 1,25:PRINT" c to change ENV 
/ENT n for noise " 


91GB iS=INKEYS 

922 IF i%="r"THEN GOTO 88g 
939 IF i#="m" THEN CLS:RETURN 
949 IF i%="c"THEN GOTO 799 
958 IF i#="n"THEN GOTO 989 


969 IF i#="p"THEN GOSUB 1198:GOTO 728 
976 GOTO 9719 

989 LOCATE 1,28: INPUT “LEVEL OF NOISE (9 
-135) "5noi 

998 IF noi<@ OR noi>15 THEN GOTO 989 
1999 GOTO 88g 

1999 REM PLAY MUSIC 

1198 CLS:LOCATE 7,12:PEN 2:PRINT “PRESS 
SPACE BAR TQ RETURN” 

1119 in#=INKEYS 

1129 IF in#="" THEN GOTO 1119 

1139 IF in#=CHR#$(32) THEN RETURN 

1148 in=ASC(in*®) 

1158 SOUND 129, ink28-999,%,7,ve,te,noi 
1168 GOTO 1119 

1199 REM MENU 

1288 LOCATE 7,19:PRINT"1 set up volume 
envelope” 

121@ LOCATE 7,12:PRINT"“2 set up tone en 
velope" 

1228 LOCATE 7,14:PRINT"3 play note” 
1238 LOCATE 7,28: INPUT “input menu selec 
tion" ;x:CLs 

1248 ON x GOSUB 199,489,789 

1258 GOTO 1299 
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11 Teledex 


This program gives you a computerised telephone directory. 
You can display names, addresses and phone numbers on 
your computer screen in the same way as you have them 

in your address book. To find someone’s address or phone 
number just press the key corresponding to their alpha- 
betical page. 

You can save files on tape or disk, load them back in at later 
times and add names, delete names or make alterations very 
simply with no complicated programming routines. 

You move around the pages using the arrow keys. Using 
the (SHIFT) key with the right and left arrow keys jumps 
your cursor across to the next column. When you wish to 
enter some information, position the cursor where you want 
it and simply type in the information. To select a new page 
press the (SHIFT) and (COPY) keys together. The computer 
will then ask which page letter you want to go to. To delete 
any information or to make alterations all you do is position 
the cursor under the material to be deleted or changed and 
type over it, using the space bar to make deletions. 

To save your file press (CTRL) and S together. This in- 
itiates the SAVE routine and will then prompt you through 
using the cassette player as usual. 

To load a file there are two options. One is to load the file 
immediately on running the program. The other is to load the 
file during the program by pressing the (CTRL) and L keys 
together. 

Important: To break out of the program, you must first go to 
the SAVE or LOAD routine and only then press (BREAK). 


Variables 

an$ Answer to load request 

x Variable used for loops to initialise memory 
g Variable used for loops to initialise memory 
h Variable used for loops to initialise memory 
g Counter used to display fields 

c Records per column 

j Fields per record 


a$ Data for field headings 


w Window number 

x Horizontal cursor position 

y Vertical cursor position 

p$ Page letter 

addr Address in memory for start of data 

pr Address in memory for start of selected page 
letter 

pk Window (column) currently in use 

pp Counter to display the information for the 
current page 

px Counter—same as ‘pp’ 

hg Counter—same as ‘pp’ 

k$ Key pressed 

page$ New page selected 

data File name used for saving and loading 

Program 


Line 10 sets the position of the highest point in memory 
available to the basic program. This makes the memory 
from 10000 onwards available for storing our information. 


Line 56—UPPERS$ converts the input to capital letters, the 
line then checks if the input was ‘y’, ‘Y’, ‘yes’, ‘YES’ actually 
anything that starts with ‘y’ or ‘Y’. 

Line 70—here because the program takes a while to initialise, 
so be patient. 


Line 89 fills the first 100 locations used for information 
storage with spaces. 


Lines 90-120—loop set up to fill memory with the record 
separating lines and spaces. 


Lines 210-270 define the windows used on screen: 
WINDOW #9 information line across top 
WINDOW #1,3,5 labels for fields (name, address) 
WINDOW #2,4,6 contain the information. 


Lines 290—350 read and print the labels for each column 
(WINDOW 41,3,5,). 
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Lines 360-380 set the variables to the initial page. 


Lines 390-440 take the information out of memory and 
display it on the screen for the selected page. 


Line 450 prints the letters of the page currently being 
displayed. 


Line 500 locates and prints the cursor. 
Line 510 clears the keyboard buffer. 
Line 540 checks for CTRL-S and CTRL-L. 


Line 550 displays information at the cursor position. 
(Otherwise the cursor would be deleting the information 
on the screen.) 


Lines 560-570 update the cursor position using logic. 

Line 580 checks for valid key inputs. 

Line 590 checks whether the (ENTER) key was pressed. 
Line 600 updates window used. 

Lines 610-660 ensure that the updated variables are valid. 
Line 630 checks for the (COPY) key. 

Line 680 displays the key pressed. 


Line 690 stores the key pressed in memory as its ASCII 
value. 


Line 700 sets k$ so that the cursor moves to the right. 
Line 7390 sets the start address for selected page. 


Line 850—note that we have used ‘data’ as a label. Generally 
it is not possible to use a reserved word as a label but in this 
case ‘data’ is not used as a variable but as a string. 


Explanation 

This program is an example of a static data structure. In 
previous programs we have made use of arrays to store 
information. This program achieves the same result using 
memory locations as pigeon holes for storing information. 
Each hole has a number which is used to store and recall the 
contents. These memory locations will only hold numbers, 
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so to store a letter you must store it as a number (ie its 
ASCII value). For an explanation of ASCII code see your 
manual (ch 1, p 7). Values stored in memory locations can 
be in the range of @ to 255. 

Values are stored in memory locations using the POKE 
command and retrieved using the PEEK command. Not all 
the memory is available for storage in this manner as parts 
of it have already been set aside for the basic program, the 
screen display, the ROM flags, etc. The part of memory used 
for storage of information is always immediately above the 
basic program area. By using the MEMORY command you 
can set the top of the basic program area (RAM top) and 
thus increase the amount of memory available for storage. 
If you try to use the area of memory above HIMEM then your 
information will tend to be corrupted by the work space the 
computer uses for calculation, keyboard buffer, etc. In your 
own programs do not be afraid to experiment with memory 
locations, as the worst thing that can happen is that you'll 
have to switch off the computer and start again. You cannot 
do any damage to the computer itself. 

The advantage of using memory locations for storage is 
that information can be stored and retrieved much faster 
and with more control over the selection than if you’re using 
another storage technique such as arrays. Although at first 
it appears that addressing the information location required 
is complicated, it is actually quite simple because you can 
address the required memory location as a function of 
the cursor position on the screen, as in line 550: 


550 LOCATE #w,x,y:PRINT #w,CHR$(PEEK 
(addr + (x — 1) + (y — 1)*20) + ((w/2) — 1 480)) 


‘LOCATE #w,x, y’ positions the cursor. The variable 
‘addr’ holds the value of the memory address which holds the 
first piece of information for the current page. So when you 
PRINT CHR$(PEEK (addr)) you are displaying the charac- 
ter at the first position of the current page. X and y are the 
horizontal and vertical positions of the cursor, y is multiplied 
by 20 because there are 20 characters in each field of each 
record. So from ‘addr’ to ‘addr + 20’ we have the information 
stored at the positions where y = 1 and the values for x from 
1 to 20. Wis the current window being used and each window 
holds 480 characters. 
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At the first position on the screen, x=1, y=1, w=2, 
so at this point 
addr + (1 — 1) + (1 — 1)20 + ((2/2) — 1480) will equal ‘addr’. 


At the last position on the screen x = 20, y= 23, w=6, 
so at this point 
addr + (20 — 1) + (23 — 1)*2@ + ((6/2) — 1480) will equal 
‘addr + 1419’. 


In line 730 ‘addr’ is given the value for the start address 
of the page selected: 


730 addr = INT((ASC(p$) — 65)/2)*1440 + 10000 


‘p$’ is the character of which you wish to display the page. 
‘ASC(p$)’ returns the ASCII value of the character you have 
chosen. This value is then reduced by 65. The ASCII value 
of ‘A’ is 65 and since we want this operation to return a zero 
for the ‘A’ page we then subtract 65. The number 144 is the 
number of locations per page and 10 000 is the first location 
where the information is stored. In order to fit all the infor- 
mation required in memory, we have displayed two letters 
per page (eg A and B). So that line 730 will also work if you 
select the second of the two letters (eg B), after taking the 
ASCII value and subtracting 65 from it, we then divide the 
number by 2 and take the INTeger part of the value returned. 
This means that ‘addr’ will be the same if you have selected 
either of A or B, C or D, E orF, etc. 

We have used several of the print control characters in this 
program. (See your manual, ch 9, p 2.) In line 500 ‘PRINTing 
CHR$(22) + CHR$(1)’ sets Transparent Mode so that the 
cursor does not mask the character underneath. ‘PRINTing 
CHR$(22) + CHR$(@)’ turns the Transparent Mode off. 

We have also had to use ‘PRINT CHR$(8)’ several times to 
prevent the cursor from moving to the next line, which would 
affect the display. 


Further uses 


We have set this program up for use as a telephone directory, 
but there is absolutely no effort involved in altering the pro- 
gram to use it as a club record controller, an index of your 
video tapes or software programs or for any other filing 
purposes. To do this all you need to do is change the field 
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titles in the DATA statement in line 890. This is possible 
because the program is set up for free-form data entry by 
pages rather than by fields. When you make such alterations 
remember the labels can only be up to four characters long. 


5S REM TELEDEX 

9 REM INITIALISE MEMORY 

19 MEMORY 9999 

29 PAPER @:PEN 1 

38 CLS 

48 INPUT “do you want to load a file"s;an 


52 anS=UPPERS(an®): IF LEFT#(an#,1)="Y" T 
HEN 859 

6@ MODE @:LOCATE 8,12: INK 3,27,6:PEN 3 
72 PRINT "wait" 

88 FOR x=19992 TO 19198: POKE x,32:NEXT x 
98 FOR x=191298 TO 28628 STEP 129 

198 FOR g=@8 TO 2@:POKE x-9,45:NEXT g 

118 FOR h=x TO x+19@@:POKE h,32:NEXT h 
128 NEXT x 

199 REM INITIALISE SCREEN 

298 MODE 2 

218 WINDOW #@,1,88,1,2:PAPER #9,1°PEN #2 
3;O:CLS #0 

228 WINDOW #1,1,5,3,25:PAPER #1,1°PEN #1 
»9:CLS #1 

238 WINDOW #2,6,26,3,25: PAPER #2,9:PEN # 
2,1 

249 WINDOW #3,27,31,3,25:PAPER #3,1:PEN 
#3,9:CLS #3 

259 WINDOW #4,32,52,3,25: PAPER #4,9:PEN 
#4, 1 

268 WINDOW #5,53,57,3,25:PAPER #5,1:PEN 
#5,9:CLS #5 

279 WINDOW #6,58,89,3,25:PAPER #6,9:PEN 
#6,1 

289 G=6 

2998 FOR c=1i TO 4 

399 FOR j=i1 TOG 

318 READ a% 

328 FOR w=1 TO 3 STEP 2 
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339 PRINT #w, aB3 CHRS(8) 

349 IF C=3 THEN LET G=5 

358 NEXT wi NEXT j: RESTORE: NEXT c 

368 x=lLiy=1iw=2:ipS="A" i addr=1999G 

378 pr=addr 

388 pk=2:CLS #pk 

399 FOR pp=pr TO prt+i449 STEP 489 

499 FOR px=8 TO 459 STEP 29:FOR HG=8 TO 
19 

41@ PRINT #pk, CHRS (PEEK (pptpx+tHG) ) § 

4298 NEXT HG:PRINT #PK:NEXT px: pk=pkt+2 

432 IF pk>6 THEN GOTO 459 

449 CLS #pk:NEXT pp 

45@ CLS #@:IF INT(ASC (p$)/2)=ASC(p%)/2 T 

HEN PRINT #2," "$3 CHRS(ASC (p#)-1)5". "3p 

* ELSE PRINT #9," "S$p$3". "3 CHR®(ASC (pS 
+1) 

499 REM MAIN PROGRAM 

3299 LOCATE #w,x,y:PRINT #w, CHR® (22) +CHRS 
€1)5"_"§ CHR® (22) +CHR#(@) 

5Si@ CALL &BBOO 

528 k#®=INKEYS 

330 IF K#%="" THEN GOTO 529 

548 IF k®=CHR#(19) OR k®=CHRS(12) THEN 8 

BS 

558 LOCATE #w,x,y:PRINT #w, CHR® (PEEK (add 
rt(x-1) + (y-1)#20+ ( (w/2)-1)#489)) 

368 x=x+ (k#=CHR*® (242) ) - (kS=CHR® (2493) ) 

379 y=y+ (kB=CHRS (249) ) - (kH=CHRS (241) ) 

589 IF k#>CHR#(31) AND k#®<CHR®(123) THEN 
GOTO 4689 

S92 IF k®=CHR®(13) THEN x=21 

682 w=wt ( (kKS=CHRS (246) ) #2) - ( (kKS=CHRS (247 
))#2) 

618 w=wt ((W>6) #6) - ( (wh 2) #4) 

628 y=yt (xl) -(x>28) 

639 IF k®=CHR®(224) THEN.GOTO 719 

648 x=xt((x>20)%29) -((x< 1) #28) 

638 y=ytly>23)-(y<1) 

668 IF Y=23 AND X=28 THEN LET X=X-1 

679 GOTO 596d 

688 LOCATE #w,x,y:PRINT #w,k& 

69@ POKE addrt(x-1)+ly-1L) 28+ ((w/2)-1) #4 

88, ASC (k®) 
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?98 k#=CHR#(243):GOTO 3569 

718 CLS #@: INPUT "ENTER PAGE LETTER "Spa 

ges 

728 psS=UPPERS (LEFTS (pages, 1)) 

738 addr=INT( (ASC (p%) -65) /2)¥1449+19999 

7499 x=1iy=l1iw=2 

758 GOTO 379 

799 REM LOAD, SAVE, DATA 

882 CLS 

818 TF k#=CHR#(19) THEN 879 

829 INPUT “are you sure you want to LOAD 
"sant 

832 ans=UPPERS (an) 

849 IF LEFT#(an%,1)="N" THEN 459 

85@ LOAD "data" 

869 GOTO 299 

878 SAVE "data",b, 19990, 18629 

889 GOTO 450 

892 DATA "NAME", "ADDR", "ADDR", "CODE", “TE 


Sets - — — — - Sent eh Sos 


MTS Joe Bl 
Fy 1266 Hest St 
eipourne 
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12 Australiana Smith and the 
forbidden temple 


This program is a text adventure of the type that initiated 

the whole concept of using computers for entertainment. 

In this particular adventure you take the part of the hero in 

an African adventure. A missionary has been taken prisoner 
by the evil witch doctor and it is up to you to rescue her. 

You tell the computer what you wish to do—tt is your eyes 
and your action, it tells you what you see and obeys your 
commands. You can move North, South, East, West, Up 

and Down and collect objects using Take. There will be many 
objects scattered throughout the adventure which you can 
take, some of which will help you, some of which are treas- 
ures and some of which are of no value at all. You will also 
encounter various hazards which you'll either have to Fight or 
Run from. When you Run, you will lose all the objects which 
you are carrying, and there is no guarantee that you will not 
be caught. If you elect to Fight, then the outcome of the fight 
depends on any weapons that you are carrying at the time and 
the strength of your opponent. 

There are three keys scattered throughout the adventure, 
and you will need all three to release the missionary when you 
find her. Another feature of this adventure is that you can use 
the Look command to repeat the description of the present 
location. 


Playing tips 

When playing adventures it is advisable to draw a map as you 
go. If you are in one location and you go North, going South 
again will not always return you to your previous location and 
a map will provide a record of your moves. 

Initially concentrate on collecting weapons as you explore 
the temple. Once you have found the missionary, go back and 
collect the keys. After releasing the missionary you should 
make your way to the exit, collecting treasure as you go. 


You can only carry three objects at a time, so be selective. 


Remember that your adventure begins outside the gate, 
so once you've entered the temple grounds going south from 
any of the locations level with the gate will take you out of the 
temple grounds and out of the adventure. 
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Variables 


t 
b(42,3) 


rm$(40) 
a$(42) 
mv(42,6) 
ob(4) 

in$ 

hz$ 


Program 


Counter used for location number 
Number of locations 
Number of hazards 


Holds the object number in each room 
b(x, 1) holds general objects 
b(x, 2) used for manipulation of objects 
b(x, 3) holds the hazards 


Location descriptions 

Object description 

Holds the moves available from each location 
Holds the objects you are carrying 

Used to display instructions 

Holds description of hazards 

Random number for locating objects 

Input from keyboard 

String holding all the legitimate entries 


Used to interpret keyboard entry into a 
command 


Flag indicating whether you have elected to Run 
Number of keys held 

Input from keyboard for dropping an object 
Number of the object that you’ve dropped 
Value of your score 

Your fighting strength 

A random chance 


Line 20 sets location number to begin at location 1. 


Line 30 defines number of locations and number of hazards. 


Line 40 dimensions arrays. 
Lines 50-80 read and display instructions. 
Lines 90-110 load room descriptions into the array rm$. 
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Lines 120-149 load object descriptions into the array a$. 
Lines 150-170 load hazard descriptions into the array hz$. 


Lines 180-200 load moves available from each location into 
the array mv. 


Lines 210-220 select random location for missing missionary. 
Lines 230-270 select random locations for objects. 
Lines 280-320 generate random locations for hazards. 


Line 420 displays location description and object at that 
location. 


Lines 460-500 check that the input is valid and select routine 
to be executed. 


Lines 510-530 check whether movement is allowable (99 is 
used to indicate that you cannot go there). 


Line 546 sets location number according to the direction 
selected. 


Lines 610-670 calculate number of keys you are carrying. 
Lines 770-790 determine the number of objects you are 
carrying. 

Lines 820-830 pick up the object and replace it with object 9 
(object 9 is a dead rat). 


Lines 950-970 replace object you wish to drop with object 
you wish to pick up. 


Lines 1010-1059 calculate and print the value of treasures 
taken. 


Lines 1080-1190 reset all variables for new game. 


Lines 1310-1340 determine your fighting strength from the 
objects you are carrying. 


Lines 1400-1410 determine chance of escaping if you elect to 
Run. 


Lines 1500-1520 determine chance of winning if you elect to 
Fight. 
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Explanation 

Adventure programs are probably the definitive examples 
of complex data structures where you have several different 
arrays all being accessed simultaneously, using a common 
reference, in this case n, the room number. In an adventure 
every location is given a number. When you elect to move 
to another location (NSEWUD) all the program needs to do 
is to specify the number of the new location. 

By using separate arrays for all the items of information, 
it is possible to generate an adventure which will play dif- 
ferently each time you play it. We have done this so that 
the objects, the missionary and the hazards will not neces- 
sarily appear in the same place each time you play the game. 
However the location of each room and the directions avail- 
able from any given location will always be the same. 

There are two main arrays around which the entire game 
is centred, the array holding the description for each location 
(rm$) and the array holding the moves available from each 
location (mv). The array mv at a particular location number 
will look something like this: 


99 32 14.99 22 99 


This corresponds to the locations you would go to if you 
entered: 


NSEWUD 


So in this example you couldn’t go North. South would take 
you to location 32, East would take you to location 14 and you 
couldn’t go West. Up would take you to location 22 and you 
couldn’t go Down. 

The routine in lines 460 to 490 determines which position 
along the line within this array for this location you have selec- 
ted and consequently you will be moved to the corresponding 
location number. 


Alterations 
If you find the adventure too difficult to complete, you may 


like to increase your chances. This can be done quite simply 
by altering lines 1400 and 1500. You might like to try: 


1400 ch= INT(RND(1)*3 + 3) 
1500 ch = INT((RND(1))-krf) + 3 
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You can create your own adventure, using exactly the 
same layout, by changing the room descriptions in the data 
statements from lines 1800 to 2190 and the object descrip- 
tions in lines 2300 to 2840. If you do this, the first three ob- 
jects are required to release the missionary, objects number 
4 to 30 are miscellaneous objects, objects 31 to 35 are the 
weapons objects, objects 36 to 39 are treasures, object 40 is 
the goal (in this case the missing missionary) and the last five 
objects are the hazards. 


Note: The data statements from lines 2900 to 3050 hold either 
twelve or six numbers separated by commas. These lines 
hold the data for allowable movements (array mv). If when 
you run your program a particular location describes an exit 
to the east, for example, and you cannot go to the east, the 
most likely place you'll find the error is in these data lines. 


3 REM ADVENTURE 

9 REM INITIALISE 

19 CLS 

28 n=1 

38 READ rmn,t 

46 DIM b(42,3),rm#%(49) ,a%(42) ,mv(42,6),0 
b(4) 

5@ FOR i=1 TO 5 

68 READ in® 

78 PRINT in#®: PRINT: PRINT 
88 NEXT i 

9@ FOR i=i TO rmn 

19@ READ rm%(i) 

119 NEXT i 

12@ FOR i=1 TO rmn 

13@ READ a®(i) 

148 NEXT i 

132 FOR i=1 TO t 

16@ READ hz®(i) 

1728 NEXT i 

18@ FOR i=1 TO rmn 

198 READ mv(i,1),mvli,2),mv(i,3),mv(i,4) 
smv(i,5),mv(i,6) 

2290 NEXT i 

2198 r=INT(RND(1)#26+9) 
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229 bir,i)=rmn 

23@ FOR i=1 TO (rmn-1) 

248 r=INT(RND(1)#rmn+1) 

259 IF bir ,1)<>8 THEN 249 

268 b(r,1)=i 

27@ NEXT i 

28@ FOR i=i TO t 

299 r=INT(RND (1) #34+3) 

398 IF bl(r,3)<>@ THEN 299 

319 blr,3)=i 

328 NEXT i 

399 REM MAIN PROGRAM 

499 INPUT “press enter to start"j3q% 
418 FOR s=1 TO 25: PRINT:NEXT 5s 

429 PRINT rm#(n)3" "SaS(bi(n,1)) 

439 PRINT 

448 INPUT “what now "jq% 

439 PRINT : PRINT 

468 vcS="NSEWUDTL" 

49798 FOR zz=1 TO LEN(vc) 

489 IF gqg@=MID*#%ivc%,zz,1) THEN x=zz 
492 NEXT zz 

399 ON xt+i GOTO 1639,519,3519,519,519,519 
3 219,738,419 

Sif IF mvin,x)<>99 THEN 3498 

529 PRINT “you can’t go that way “:PRINT 
S538 GOTO 432 

348 n=mvin, x) 

S38 F1t=a 

5360 IF n=1 THEN 18999 

578 PRINT rm@(n)3" ";a®(b(n,1))2PRINT 
382 f1t=d 

598 IF bin,1)<>rmn THEN 798 

698 PRINT "behind a tripled-locked door 
weer 

619 FOR i =1 TO 3 

629 FOR j=1 TO 3 

638 IF ob(i)<>j THEN 659 

4649 cn=cntl 

6398 NEXT j 

668 NEXT i 

672 IF cn=3 THEN 1628 ELSE 75¢ 

688 cn=8 

699 Fit=9 
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7BD 
719d 
728 
73D 
74S 
7358 
768 
778 
782 
79GB 
89a 
cts 
818 
828 
B38 
849 
839d 
B99 
FBO 
(ab ¢ 
"Jat 
919 
929 
93D 
94g 
9359 
96D 
978 
939 
999 
1992 
tems 
1919 
1928 
1939 
19492 
1959 
1962 
1972 
1989 
1999 
1199 
1119 
1122 
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IF b(n,3)=8 THEN 43¢ 
PRINT PRINT: PRINT 
GOTO 1369 

IF #1t=1 THEN 1692 
IF #1t<>1 THEN 779 
PRINT “you only have 
GOTO 689 

FOR i=1 TO 3 

IF ob(i)=@ THEN 8290 
NEXT i 


"Scnj3" keys 


ua 
. 


PRINT “you can only carry three obje 


~leave one behind " 
GOTO 988 

ob(i)=bi(n,1) 

bin, 1)=9 

PRINT “it’s yours"!: 
GOTO 432 

REM DROP OBJECT 

PRINT "1. "sa®(ob(1)) 
2))3PRINT “3. "“sa®(ob 


*PRINT "2. 
(3)) 2 PRINT 


(bin, 1))2: 
INPUT “leave which number "j3q 
PRINT :: 


IF q>4 THEN 919 
IF g=4 THEN 439 
th=ob (q) 
ob(q)=b(n,1) 
bin, 1)=th 

GOTO 432 

REM END OF GAME 


"Sas 
"4, 


PRINT “leaving so soon ? value of i 


taken is "j 
FOR i=1 TO 3 


IF ob(i)<rmn-t+l THEN 1949 


vl=vltob(i)#1999 
NEXT i 

PRINT vl: PRINT: PRINT 
INPUT "like to try a 
IF MID#(q#,1,1)="N" 
cn=2 

n=1 

cLS 

FOR i=1 TO rmn 
b(i,1)=98 


gain "5;q% 
THEN 1219 


113d 
1142 
11592 
1162 
1172 
118¢ 
1196 
1209 
1219 
1299 
1388 
1319 
1329 
42 
1339 
1349 
1335¢ 
1369 
1372 
1389 
13928 
1499 
14198 
1429 
1439 
1449 
ythin 
14592 
1469 
1472 
1489 
1492 
1399 
151¢ 
13529 
13539 
135496 
135598 
1369 
1372 
13599 
1692 
busy 

1619 


b(i,2)=9 

ob(1)=9 

ob(2)=9 

ob(3)=8 

vl=2 

b(i,3)=8 

NEXT i 

GOTO 21¢@ 

END 

REM RUN OR FIGHT 
PRINT hz#(b(n,3)):PRINT 
FOR h=1 TO 3 


IF (ob(h) <38) + (ob(h) ormn- 


rf=r¢tobth) -39 

NEXT h 

INPUT "run or fight "5; q% 
PRINT :: 

IF MID®#(qg#,1,1)="R" THEN 
IF MID#(qg%,1,1)="F" THEN 
GOTO 13528 
Ch=INT(RND(1)¥3+1) 

IF ch<>1i THEN 14498 

PRINT "you were caught ! 
GOTO 13390 


t) THEN 13 


1499 
1598 


“;PRINT 


PRINT "you’ve escaped but lost ever 
g you were carrying. ":PRINT 


ob(1)=8 

ob (2)=2 

ob (3) = 

#1t=1 

GOTO 438 
Ch=INT((RND(1)) ¥rf) +1 
r#=9 


IF ch>(b(n,3)#2) THEN 1559 


PRINT 


PRINT "you lost !":PRINT: 
GOTO 1862 

PRINT "you won !";PRINT: PRINT 
bin, 3)=8 

GOTO 439 


REM MESSAGES 

PRINT “no time for that. 
running." 

GOTO 4328 


You’re too 


1628 PRINT “you’ve rescued "“jaS(rmn)5" n 

Ow you must escape with any treasure you 
carry":PRINT: PRINT 

163% ob(1)=rmn 

1648 GOTO 4394 

1638 PRINT "use NS E WUD Tor L pleas 

e":: 

1668 GOTO 434 

1699 REM SIZE & INSTRUCTIONS 

1768 DATA 49,5 

17198 DATA AUSTRALIANA SMITH & THE FORBID 

DEN TEMPLE 

1728 DATA A missionary has been captured 
by the evil witch doctor and it is up 
to you asthe intrepid explorer Australi 

ana Smith to rescue her from the Forbidd 

en Temple. 

1738 DATA As you explore the temple you 

will find many objects. Some will help y 

ou in youradventure. 

1748 DATA Use the commands N (north) S&S 
(south) E (east) W (west) U (up) OD 
(down) T (take) & L (look). 

17358 DATA Ensure that the CAPS LOCK key 
is down 

1799 REM LOCATION DESCRIPTION 

1899 DATA You are standing at the gatewa 

y to the Land of the Forbidden Temple. 

Go North to begin your adventure. 

Hanging from the gate-post is 

1818 DATA You are facing the ancient tem 

ple There is a well and row of tot 

em poles to the N. leading to the main 

entrance to the temple. There is also 
1829 DATA You are to the west of the MOU 

ND. On theground is 

1838 DATA You are on the other side of t 

he MOUND. You hear hungry voices to the 


South. On the ground is 
1848 DATA You are to the east of the MOU 
ND. Hanging from a tree is 


18358 DATA You are inside the entrance to 
the MOUNDThere are passages leading to 
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the N. E. and W. Stairs carved in the ro 
ck lead UpIn a sarcophagus to one side i 
Ss 

1868 DATA A room full of cobwebs. There 

is a hole to the E—. In here is 

18798 DATA Torture room. There is a way t 
o the E. You see 

1888 DATA You are in a room with water t 
rickling down the walls. You can go E. 

or W. In here is 

1899 DATA You are in a high domed chambe 
r. Exits to all sides and stairs leadin 
g down. Hanging from the roof is 

1998 DATA A narrow passageway. Doors to 

all sides.In a corner you see 

1918 DATA The floor in here is covered w 
ith dust. Exit to the W. Beneath the dus 
t is 

1928 DATA A small recess with a narrow p 
assage to the W. On the wall to your lef 
t is 

19328 DATA In the centre of the room is a 
pit full of venomous snakes. You can go 
E. or W. Suspended over the pit is 

1949 DATA You are at the bottom of the s 
tairs. Openings lead E. W. & S. At th 
e base of the stair lies 

1932 DATA A tall narrow chamber with a p 


assage leading E. In here is 
1968 DATA A small room filled with stone 
jars. Exit W. Behind the jars is 


19728 DATA A short hallway with doors to 

all sides.In here is 

1988 DATA Skeletons hang from the walls 

still heldup by thick ropes. There is a 

door to the E. You see 

1999 DATA A broad low roofed cavern with 
a small ante-chamber leads W. In here 
is 

2989 DATA A room dominated by a massive 
stone statue in the centre. Exit to 
the E. You see 


2812 DATA A passageway with exits to the 
N. E. W. In here is 
2928 DATA A crypt room. There is an exit 
to the W.and there is 
2838 DATA A dead end. You can go E. 
There is 
2849 DATA An ante-room. A door to the W. 


and a tunnel leading upwards in dark 
ness. There is 
2938 DATA You are at the top of the stai 
rs. You can proceed N. E. or W. You ca 


n only see 

2962 DATA An intersection of passages. D 

oors to all sides. Which way now?? Wh 

at’s this?On the floor is 

2972 DATA A narrow passage openings to t 
he E. W. &S. At one end is 

2988 DATA A little alcove. There is a wa 
y out to the E. There is also 

2998 DATA Another alcove. This time the 

door leadsW., there is 

2198 DATA A room filled with rotting cor 

pses. There is a single exit to the 

E. In here is 

2118 DATA More corpses. This time the ex 
it is to the W. Under a pile of filth i 
Ss 

2128 DATA You are in the altar room. You 
can smellfresh blood. You can go E. On 
the altar is 

2138 DATA An open cavern. There iS a way 
to the W.Hidden in a crack is 

2148 DATA The entrance hall. Two solid g 

ates of iron and stone block the entra 

nce to theN. To one side is 

2159 DATA A small village hut. You can 1 

eave N. ors. In here is 

21628 DATA You are at the end of a jungle 
path. Under an overhanging root you 

see 

2178 DATA You are on the bank of a river 
full of pirhanas. There is a rucksack 

to one side. You look in the rucksack 
and see 
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2188 DATA You are deep 
ndergrowthIn the vines you see 


into the forest u 


21928 DATA You are at the base of a rocky 
In a cave is 


outcrop. 


2299 
2399 
2318 
2320 
2338 
2349 
2359 
2369 
2376 
2389 
2398 
2498 
2416 
2428 
2438 
2449 
2459 
2468 
2478 
2489 
24998 
2589 
235198 
2529 
2538 
2549 
25528 
23569 
2579 
2589 
2598 
2692 
2619 
2629 
2639 
2649 
263598 
2649 
2672 
2689 


REM OBJECTS 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


I 


a 
3 
a 
a 
a 
a 


some rusted armour 


vwowvooooooeooonoeowooaootoeowoteoooooow Ds 


large key 
small key 
brass key 
clpak 

stone vase 
bottle 

clump of moss 


dead rat 
wooden leg 
mouse 

cat 

spider 

glass eye 
cup 

skull 

bell 

body 

bucket 

ring 
skeleton 
goblet 
cobweb 
dragon’s tooth 
frog 

lamp 

toad 

broom 

stone 

club 

sling shot 
dagger 

spear 

stock whip 
service revolver 
diamond 

bag of coins 
golden skull 
lost ARK 
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2698 DATA THE MISSING MISSIONARY 
2799 REM NASTIES 

2899 DATA POISONOUS SNAKES 

2819 DATA A GIANT SPIDER 

2828 DATA A HEAD HUNTING PYGMY 

2839 DATA THE WITCH DOCTORS MEN 

2849 DATA THE EVIL WITCH DOCTOR 

2899 REM MOVES AVAILABLE 

2OGD DATA 2415151, 99, 99%, 3551555 359% 5 2554 
32399437, 99,99 

2I1D DATA 38, 36,5, 3,99, 99545 234s IPs IPg?D 
9,11,99,14,7, 26,99 

2I2D DATA 99,995 65 FP, 9P3 IP 3 PP, PP 5115 IGP 
9,99 ,9F, 99 41D, 24,99, 99 

293BB DATA 36,11,12,9,99, 15518, 6513,8, 99, 
DF, 9P,9P, PF, 18,99, 99 

2P4D DATA 99,994,995 11, PP, PP 4 IPs IPs 255 OD 
9,99,99,18,17,16,18,99 

2OSD DATA 99, 99515599, 9P 4 IPs IPs IPs PAIS, 
99, 99,15, 22, 28,19, 99,99 

29ED DATA 99,99, 18,99, 99,99, IPs PI, IPs 1B, 
99,99, 9P PP 5 22,99 PPP 

297H DATA 18,99, 23, 21599599497, IPPs PP, D2, 
ee 

ZIBD DATA 994994994145 25995 275994 345 33597 
9 56528, 26,32, 31,99, 99 

ZIOD DATA 99,274 3H, 29, PFs PI, PP 5 IPs 285995 
99,9999, 9F,9F, 28,99, 99 

BIB DATA 99,99, 27,99, PP, IP PP 5 PP 4 IPs 27s 
D9, 9P PP, IP 26599, II, PP 

BOLD DATA 99,99, PP 5 265 PP 5 PP g IPs Ze PPG IIGD 
9, 9F 54,18, 99, 99,99, 99 

3O2B DATA 38,1,3,99,99,99 

3G3W DATA 39,4,48,37,99,99 

3B4B DATA 99, 38,99, 99,99, 99 

3O5B DATA 38,1,99,5,99,99 

3968 END 
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Pitman’s First Book of Amstrad Games provides an introduction 
to writing programs on the Amstrad series of microcomputers. There 
are a number of program listings covering aspects of computing 
ranging from quality entertainment games through to a data base 
program for serious application. 


Each listing introduces a new basic programming technique which 
is explained in depth in the accompanying notes. An ideal introduction 
to programming in BASIC for Amstrad users. 
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